VERSION 5.00
Begin VB.Form Form1 
   AutoRedraw      =   -1  'True
   BackColor       =   &H00C0FFC0&
   Caption         =   "Spartina DMSP radiolabeling kinetics simulation"
   ClientHeight    =   6405
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   9120
   LinkTopic       =   "Form1"
   ScaleHeight     =   6405
   ScaleWidth      =   9120
   Begin VB.TextBox Text31 
      Height          =   285
      Left            =   8400
      TabIndex        =   83
      Top             =   1200
      Width           =   615
   End
   Begin VB.TextBox Text30 
      Height          =   285
      Left            =   7560
      TabIndex        =   82
      Top             =   1200
      Width           =   615
   End
   Begin VB.TextBox Text29 
      Height          =   285
      Left            =   8400
      TabIndex        =   81
      Top             =   600
      Width           =   615
   End
   Begin VB.TextBox Text28 
      Height          =   285
      Left            =   7560
      TabIndex        =   80
      Top             =   600
      Width           =   615
   End
   Begin VB.TextBox Text27 
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   840
      TabIndex        =   78
      Text            =   "150"
      Top             =   1680
      Width           =   495
   End
   Begin VB.TextBox Text24 
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   7440
      TabIndex        =   68
      Text            =   "2.7"
      Top             =   2280
      Width           =   495
   End
   Begin VB.TextBox Text23 
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   6360
      TabIndex        =   66
      Text            =   "0.1"
      Top             =   1560
      Width           =   495
   End
   Begin VB.TextBox Text18 
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   4440
      TabIndex        =   56
      Text            =   "0.45"
      Top             =   1560
      Width           =   495
   End
   Begin VB.TextBox Text15 
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   5520
      TabIndex        =   50
      Text            =   "2.7"
      Top             =   2280
      Width           =   495
   End
   Begin VB.TextBox Text14 
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   4440
      TabIndex        =   48
      Text            =   "2.7"
      Top             =   3000
      Width           =   495
   End
   Begin VB.TextBox Text11 
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   3600
      TabIndex        =   42
      Text            =   "0.003"
      Top             =   2280
      Width           =   495
   End
   Begin VB.TextBox Text10 
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   1560
      TabIndex        =   40
      Text            =   "0.029"
      Top             =   2520
      Width           =   495
   End
   Begin VB.TextBox Text7 
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Left            =   1560
      TabIndex        =   34
      Text            =   "0.032"
      Top             =   2160
      Width           =   495
   End
   Begin VB.Frame Frame7 
      Caption         =   "SMM (stor)"
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   4200
      TabIndex        =   25
      Top             =   600
      Width           =   975
      Begin VB.TextBox Text17 
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   360
         TabIndex        =   53
         Text            =   "150"
         Top             =   480
         Width           =   495
      End
      Begin VB.TextBox Text16 
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   360
         TabIndex        =   52
         Text            =   "0"
         Top             =   240
         Width           =   495
      End
      Begin VB.Label Label28 
         Caption         =   "D2"
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   135
         Left            =   120
         TabIndex        =   55
         Top             =   480
         Width           =   255
      End
      Begin VB.Label Label27 
         Caption         =   "D1"
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   135
         Left            =   120
         TabIndex        =   54
         Top             =   240
         Width           =   255
      End
   End
   Begin VB.Frame Frame6 
      Caption         =   "DA (stor)"
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   6120
      TabIndex        =   24
      Top             =   600
      Width           =   975
      Begin VB.TextBox Text22 
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   360
         TabIndex        =   63
         Text            =   "14"
         Top             =   480
         Width           =   495
      End
      Begin VB.TextBox Text21 
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   360
         TabIndex        =   62
         Text            =   "0"
         Top             =   240
         Width           =   495
      End
      Begin VB.Label Label33 
         Caption         =   "F2"
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   135
         Left            =   120
         TabIndex        =   65
         Top             =   480
         Width           =   255
      End
      Begin VB.Label Label32 
         Caption         =   "F1"
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   135
         Left            =   120
         TabIndex        =   64
         Top             =   240
         Width           =   255
      End
   End
   Begin VB.Frame Frame5 
      Caption         =   "DMSP"
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   8040
      TabIndex        =   23
      Top             =   2040
      Width           =   975
      Begin VB.TextBox Text26 
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   360
         TabIndex        =   71
         Text            =   "27500"
         Top             =   480
         Width           =   495
      End
      Begin VB.TextBox Text25 
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   360
         TabIndex        =   70
         Text            =   "0"
         Top             =   240
         Width           =   495
      End
      Begin VB.Label Label37 
         BackStyle       =   0  'Transparent
         Caption         =   "G2"
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   120
         TabIndex        =   73
         Top             =   480
         Width           =   255
      End
      Begin VB.Label Label36 
         Caption         =   "G1"
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   120
         TabIndex        =   72
         Top             =   240
         Width           =   255
      End
   End
   Begin VB.Frame Frame4 
      Caption         =   "DA (met)"
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   6120
      TabIndex        =   22
      Top             =   2040
      Width           =   975
      Begin VB.TextBox Text20 
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   360
         TabIndex        =   59
         Text            =   "20"
         Top             =   480
         Width           =   495
      End
      Begin VB.TextBox Text19 
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   360
         TabIndex        =   58
         Text            =   "0"
         Top             =   240
         Width           =   495
      End
      Begin VB.Label Label31 
         Caption         =   "E2"
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   135
         Left            =   120
         TabIndex        =   61
         Top             =   480
         Width           =   255
      End
      Begin VB.Label Label30 
         Caption         =   "E1"
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   135
         Left            =   120
         TabIndex        =   60
         Top             =   240
         Width           =   255
      End
   End
   Begin VB.Frame Frame3 
      Caption         =   "SMM (met)"
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   4200
      TabIndex        =   21
      Top             =   2040
      Width           =   975
      Begin VB.TextBox Text13 
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   360
         TabIndex        =   45
         Text            =   "330"
         Top             =   480
         Width           =   495
      End
      Begin VB.TextBox Text12 
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   360
         TabIndex        =   44
         Text            =   "0"
         Top             =   240
         Width           =   495
      End
      Begin VB.Label Label24 
         Caption         =   "C1"
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   135
         Left            =   120
         TabIndex        =   47
         Top             =   240
         Width           =   255
      End
      Begin VB.Label Label23 
         Caption         =   "C2"
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   135
         Left            =   120
         TabIndex        =   46
         Top             =   480
         Width           =   255
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "SMM (ap)"
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   2280
      TabIndex        =   20
      Top             =   2040
      Width           =   975
      Begin VB.TextBox Text9 
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   360
         TabIndex        =   37
         Text            =   "0.2"
         Top             =   480
         Width           =   495
      End
      Begin VB.TextBox Text8 
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   360
         TabIndex        =   36
         Text            =   "0"
         Top             =   240
         Width           =   495
      End
      Begin VB.Label Label20 
         Caption         =   "B2"
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   135
         Left            =   120
         TabIndex        =   39
         Top             =   480
         Width           =   255
      End
      Begin VB.Label Label19 
         Caption         =   "B1"
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   135
         Left            =   120
         TabIndex        =   38
         Top             =   240
         Width           =   255
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "SMM (ex)"
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   240
      TabIndex        =   19
      Top             =   2040
      Width           =   975
      Begin VB.TextBox Text6 
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   360
         TabIndex        =   31
         Text            =   "1.6"
         Top             =   480
         Width           =   495
      End
      Begin VB.TextBox Text5 
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   360
         TabIndex        =   30
         Text            =   "3125"
         Top             =   240
         Width           =   495
      End
      Begin VB.Label Label17 
         Caption         =   "A2"
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   135
         Left            =   120
         TabIndex        =   33
         Top             =   480
         Width           =   255
      End
      Begin VB.Label Label16 
         Caption         =   "A1"
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   135
         Left            =   120
         TabIndex        =   32
         Top             =   240
         Width           =   255
      End
   End
   Begin VB.TextBox Text4 
      Height          =   285
      Left            =   6240
      TabIndex        =   18
      Text            =   "1500"
      Top             =   3840
      Width           =   495
   End
   Begin VB.TextBox Text3 
      Height          =   285
      Left            =   3720
      TabIndex        =   17
      Text            =   "60"
      Top             =   3840
      Width           =   375
   End
   Begin VB.TextBox Text2 
      Height          =   285
      Left            =   960
      TabIndex        =   16
      Text            =   "1500"
      Top             =   3840
      Width           =   495
   End
   Begin VB.PictureBox Picture3 
      BackColor       =   &H80000009&
      BorderStyle     =   0  'None
      Height          =   2010
      Left            =   6840
      Picture         =   "spartin.frx":0000
      ScaleHeight     =   2010
      ScaleWidth      =   2010
      TabIndex        =   4
      Top             =   3960
      Width           =   2010
   End
   Begin VB.PictureBox Picture1 
      BackColor       =   &H80000009&
      BorderStyle     =   0  'None
      Height          =   2010
      Left            =   1560
      Picture         =   "spartin.frx":D3BA
      ScaleHeight     =   2010
      ScaleWidth      =   2010
      TabIndex        =   3
      Top             =   3960
      Width           =   2010
   End
   Begin VB.PictureBox Picture2 
      BackColor       =   &H80000009&
      BorderStyle     =   0  'None
      Height          =   2010
      Left            =   4200
      Picture         =   "spartin.frx":1A774
      ScaleHeight     =   2010
      ScaleWidth      =   2010
      TabIndex        =   2
      Top             =   3960
      Width           =   2010
   End
   Begin VB.CommandButton Command2 
      Caption         =   "End"
      Height          =   375
      Left            =   240
      TabIndex        =   1
      Top             =   5280
      Width           =   495
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Start"
      Height          =   375
      Left            =   240
      TabIndex        =   0
      Top             =   4320
      Width           =   495
   End
   Begin VB.Label Label49 
      BackStyle       =   0  'Transparent
      Caption         =   "-1"
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   135
      Left            =   1340
      TabIndex        =   90
      Top             =   4750
      Width           =   135
   End
   Begin VB.Line Line31 
      X1              =   4680
      X2              =   5520
      Y1              =   3360
      Y2              =   3360
   End
   Begin VB.Label Label48 
      BackStyle       =   0  'Transparent
      Caption         =   "600"
      Height          =   255
      Left            =   3360
      TabIndex        =   89
      Top             =   6000
      Width           =   375
   End
   Begin VB.Label Label47 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Mean Abs. Dev."
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   7560
      TabIndex        =   88
      Top             =   120
      Width           =   1455
   End
   Begin VB.Label Label46 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "DA"
      Height          =   255
      Left            =   8400
      TabIndex        =   87
      Top             =   380
      Width           =   495
   End
   Begin VB.Label Label45 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "SMM"
      Height          =   255
      Left            =   7560
      TabIndex        =   86
      Top             =   380
      Width           =   615
   End
   Begin VB.Label Label44 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "DMSP"
      Height          =   255
      Left            =   7560
      TabIndex        =   85
      Top             =   980
      Width           =   615
   End
   Begin VB.Label Label43 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Total"
      Height          =   255
      Left            =   8400
      TabIndex        =   84
      Top             =   980
      Width           =   495
   End
   Begin VB.Label Label42 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Chase start time (min)"
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   120
      TabIndex        =   79
      Top             =   1560
      Width           =   615
   End
   Begin VB.Label Label41 
      BackStyle       =   0  'Transparent
      Caption         =   "DMSP"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   7560
      TabIndex        =   77
      Top             =   3720
      Width           =   615
   End
   Begin VB.Label Label40 
      BackStyle       =   0  'Transparent
      Caption         =   "DA"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   5040
      TabIndex        =   76
      Top             =   3720
      Width           =   375
   End
   Begin VB.Label Label39 
      BackStyle       =   0  'Transparent
      Caption         =   "SMM"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   2280
      TabIndex        =   75
      Top             =   3720
      Width           =   495
   End
   Begin VB.Label Label38 
      BackStyle       =   0  'Transparent
      Caption         =   "Unlabeled methionine"
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   5640
      TabIndex        =   74
      Top             =   3240
      Width           =   615
   End
   Begin VB.Label Label35 
      BackStyle       =   0  'Transparent
      Caption         =   "G3"
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   7230
      TabIndex        =   69
      Top             =   2250
      Width           =   255
   End
   Begin VB.Label Label34 
      BackStyle       =   0  'Transparent
      Caption         =   "F3"
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   135
      Left            =   6150
      TabIndex        =   67
      Top             =   1560
      Width           =   255
   End
   Begin VB.Label Label29 
      BackStyle       =   0  'Transparent
      Caption         =   "D3"
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   135
      Left            =   4220
      TabIndex        =   57
      Top             =   1560
      Width           =   255
   End
   Begin VB.Label Label26 
      BackStyle       =   0  'Transparent
      Caption         =   "E3"
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   135
      Left            =   5300
      TabIndex        =   51
      Top             =   2250
      Width           =   255
   End
   Begin VB.Label Label25 
      BackStyle       =   0  'Transparent
      Caption         =   "C4"
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   135
      Left            =   4230
      TabIndex        =   49
      Top             =   3000
      Width           =   255
   End
   Begin VB.Line Line30 
      X1              =   4800
      X2              =   4680
      Y1              =   2880
      Y2              =   2760
   End
   Begin VB.Line Line29 
      X1              =   4560
      X2              =   4680
      Y1              =   2880
      Y2              =   2760
   End
   Begin VB.Line Line10 
      X1              =   4680
      X2              =   4680
      Y1              =   3360
      Y2              =   2760
   End
   Begin VB.Label Label22 
      BackStyle       =   0  'Transparent
      Caption         =   "C3"
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   135
      Left            =   3390
      TabIndex        =   43
      Top             =   2250
      Width           =   255
   End
   Begin VB.Label Label21 
      BackStyle       =   0  'Transparent
      Caption         =   "B4"
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   135
      Left            =   1350
      TabIndex        =   41
      Top             =   2490
      Width           =   255
   End
   Begin VB.Label Label18 
      BackStyle       =   0  'Transparent
      Caption         =   "B3"
      BeginProperty Font 
         Name            =   "Small Fonts"
         Size            =   6
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   135
      Left            =   1350
      TabIndex        =   35
      Top             =   2130
      Width           =   255
   End
   Begin VB.Line Line28 
      X1              =   6720
      X2              =   6600
      Y1              =   1920
      Y2              =   2040
   End
   Begin VB.Line Line27 
      X1              =   6480
      X2              =   6600
      Y1              =   1920
      Y2              =   2040
   End
   Begin VB.Line Line26 
      X1              =   6720
      X2              =   6600
      Y1              =   1440
      Y2              =   1320
   End
   Begin VB.Line Line25 
      X1              =   6480
      X2              =   6600
      Y1              =   1440
      Y2              =   1320
   End
   Begin VB.Line Line24 
      X1              =   6600
      X2              =   6600
      Y1              =   1320
      Y2              =   2040
   End
   Begin VB.Line Line23 
      X1              =   4800
      X2              =   4680
      Y1              =   1920
      Y2              =   2040
   End
   Begin VB.Line Line22 
      X1              =   4560
      X2              =   4680
      Y1              =   1920
      Y2              =   2040
   End
   Begin VB.Line Line21 
      X1              =   4800
      X2              =   4680
      Y1              =   1440
      Y2              =   1320
   End
   Begin VB.Line Line20 
      X1              =   4560
      X2              =   4680
      Y1              =   1440
      Y2              =   1320
   End
   Begin VB.Line Line19 
      X1              =   4680
      X2              =   4680
      Y1              =   2040
      Y2              =   1320
   End
   Begin VB.Line Line18 
      X1              =   7920
      X2              =   8040
      Y1              =   2520
      Y2              =   2400
   End
   Begin VB.Line Line17 
      X1              =   7920
      X2              =   8040
      Y1              =   2280
      Y2              =   2400
   End
   Begin VB.Line Line16 
      X1              =   7080
      X2              =   8040
      Y1              =   2400
      Y2              =   2400
   End
   Begin VB.Line Line15 
      X1              =   6000
      X2              =   6120
      Y1              =   2520
      Y2              =   2400
   End
   Begin VB.Line Line14 
      X1              =   6000
      X2              =   6120
      Y1              =   2280
      Y2              =   2400
   End
   Begin VB.Line Line13 
      X1              =   5160
      X2              =   6120
      Y1              =   2400
      Y2              =   2400
   End
   Begin VB.Line Line12 
      X1              =   4080
      X2              =   4200
      Y1              =   2520
      Y2              =   2400
   End
   Begin VB.Line Line11 
      X1              =   4080
      X2              =   4200
      Y1              =   2280
      Y2              =   2400
   End
   Begin VB.Line Line9 
      X1              =   3240
      X2              =   4200
      Y1              =   2400
      Y2              =   2400
   End
   Begin VB.Line Line8 
      X1              =   2160
      X2              =   2280
      Y1              =   2400
      Y2              =   2280
   End
   Begin VB.Line Line7 
      X1              =   2160
      X2              =   2280
      Y1              =   2160
      Y2              =   2280
   End
   Begin VB.Line Line6 
      X1              =   1320
      X2              =   1200
      Y1              =   2760
      Y2              =   2640
   End
   Begin VB.Line Line5 
      X1              =   1320
      X2              =   1200
      Y1              =   2520
      Y2              =   2640
   End
   Begin VB.Line Line4 
      X1              =   1200
      X2              =   2280
      Y1              =   2640
      Y2              =   2640
   End
   Begin VB.Line Line3 
      X1              =   1200
      X2              =   2280
      Y1              =   2280
      Y2              =   2280
   End
   Begin VB.Label Label15 
      BackStyle       =   0  'Transparent
      Caption         =   "Symplast"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   4320
      TabIndex        =   29
      Top             =   240
      Width           =   855
   End
   Begin VB.Label Label14 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Apoplast"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   2280
      TabIndex        =   28
      Top             =   240
      Width           =   975
   End
   Begin VB.Label Label13 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Medium"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   480
      TabIndex        =   27
      Top             =   240
      Width           =   855
   End
   Begin VB.Label Label12 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "nCi.gfw"
      Height          =   255
      Left            =   720
      TabIndex        =   26
      Top             =   4800
      Width           =   735
   End
   Begin VB.Line Line2 
      BorderWidth     =   2
      X1              =   3720
      X2              =   3720
      Y1              =   240
      Y2              =   3360
   End
   Begin VB.Line Line1 
      BorderWidth     =   2
      X1              =   1680
      X2              =   1680
      Y1              =   240
      Y2              =   3360
   End
   Begin VB.Label Label11 
      BackStyle       =   0  'Transparent
      Caption         =   "600"
      Height          =   255
      Left            =   8640
      TabIndex        =   15
      Top             =   6000
      Width           =   375
   End
   Begin VB.Label Label10 
      BackStyle       =   0  'Transparent
      Caption         =   "600"
      Height          =   255
      Left            =   6120
      TabIndex        =   14
      Top             =   6000
      Width           =   375
   End
   Begin VB.Label Label9 
      BackStyle       =   0  'Transparent
      Caption         =   "0"
      Height          =   255
      Left            =   6720
      TabIndex        =   13
      Top             =   5880
      Width           =   135
   End
   Begin VB.Label Label8 
      BackStyle       =   0  'Transparent
      Caption         =   "0"
      Height          =   255
      Left            =   4200
      TabIndex        =   12
      Top             =   6000
      Width           =   135
   End
   Begin VB.Label Label7 
      BackStyle       =   0  'Transparent
      Caption         =   "0"
      Height          =   255
      Left            =   4080
      TabIndex        =   11
      Top             =   5880
      Width           =   135
   End
   Begin VB.Label Label6 
      BackStyle       =   0  'Transparent
      Caption         =   "0"
      Height          =   255
      Left            =   1440
      TabIndex        =   10
      Top             =   5880
      Width           =   135
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "0"
      Height          =   255
      Left            =   1560
      TabIndex        =   9
      Top             =   6000
      Width           =   135
   End
   Begin VB.Label Label4 
      BackStyle       =   0  'Transparent
      Caption         =   "0"
      Height          =   255
      Left            =   6840
      TabIndex        =   8
      Top             =   6000
      Width           =   135
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   "Time (min)"
      Height          =   255
      Left            =   7560
      TabIndex        =   7
      Top             =   6000
      Width           =   735
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "Time (min)"
      Height          =   255
      Left            =   4800
      TabIndex        =   6
      Top             =   6000
      Width           =   735
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "Time (min)"
      Height          =   255
      Left            =   2160
      TabIndex        =   5
      Top             =   6000
      Width           =   735
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Picture1.Refresh
Picture2.Refresh
Picture3.Refresh
Dim Datapts As Integer
Dim Time(9)
Dim SMM(9)
Dim DA(9)
Dim DMSP(9)
Dim dSMM(9)
Dim dDA(9)
Dim dDMSP(9)
Datapts = 9
Mx = 600
My1 = Text2.Text
My2 = Text3.Text
My3 = Text4.Text
TS = Mx
TC = (Text27.Text) * 1
Time(1) = 5
Time(2) = 10
Time(3) = 20
Time(4) = 40
Time(5) = 90
Time(6) = 150
Time(7) = 210
Time(8) = 330
Time(9) = 510
SMM(1) = 417
SMM(2) = 500
SMM(3) = 627
SMM(4) = 816
SMM(5) = 1057
SMM(6) = 1340
SMM(7) = 549
SMM(8) = 242
SMM(9) = 97
DA(1) = 0.2
DA(2) = 2.2
DA(3) = 4
DA(4) = 11.6
DA(5) = 29.8
DA(6) = 49.4
DA(7) = 43.4
DA(8) = 20.2
DA(9) = 13.2
DMSP(1) = 0.05
DMSP(2) = 0.7
DMSP(3) = 5.6
DMSP(4) = 33.4
DMSP(5) = 190
DMSP(6) = 552
DMSP(7) = 703
DMSP(8) = 969
DMSP(9) = 1021
For i = 1 To Datapts Step 1
X = Time(i)
X = (X * 2000 / Mx)
Y = SMM(i)
Y = 2000 - (Y * 2000 / My1)
Picture1.Circle (X, Y), 30, QBColor(9)
Y = DA(i)
Y = 2000 - (Y * 2000 / My2)
Picture2.Circle (X, Y), 30, QBColor(12)
Y = DMSP(i)
Y = 2000 - (Y * 2000 / My3)
Picture3.Circle (X, Y), 30, QBColor(13)
Next i
v = 0
z = TS / 6000
A1 = Text5.Text
A2 = Text6.Text
B1 = Text8.Text
B2 = Text9.Text
B3 = Text7.Text
B4 = Text10.Text
C1 = Text12.Text
C2 = Text13.Text
C3 = Text11.Text
C4 = Text14.Text
D1 = Text16.Text
D2 = Text17.Text
D3 = Text18.Text
M1 = 0
E1 = Text19.Text
E2 = Text20.Text
E3 = Text15.Text
F1 = Text21.Text
F2 = Text22.Text
F3 = Text23.Text
G1 = Text25.Text
G2 = Text26.Text
G3 = Text24.Text
For t = 0 To Mx Step z
If t > TC Then A1 = 0
If t > TC Then A2 = 0
A1 = (A1 * A2 - A1 * z * B3) / (A2 - z * B3)
A2 = A2 - z * B3
A1 = (A1 * A2 + B1 * z * B4) / (A2 + z * B4)
A2 = A2 + z * B4
B1 = (B1 * B2 + A1 * z * B3) / (B2 + z * B3)
B2 = B2 + z * B3
B1 = (B1 * B2 - B1 * z * B4) / (B2 - z * B4)
B2 = B2 - z * B4
B1 = (B1 * B2 - B1 * z * C3) / (B2 - z * C3)
B2 = B2 - z * C3
C1 = (C1 * C2 + B1 * z * C3) / (C2 + z * C3)
C2 = C2 + z * C3
C1 = (C1 * C2 + M1 * z * C4) / (C2 + z * C4)
C2 = C2 + z * C4
C1 = (C1 * C2 - C1 * z * E3) / (C2 - z * E3)
C2 = C2 - z * E3
D1 = (D1 * D2 + C1 * z * D3) / (D2 + z * D3)
D2 = D2 + z * D3
D1 = (D1 * D2 - D1 * z * D3) / (D2 - z * D3)
D2 = D2 - z * D3
C1 = (C1 * C2 + D1 * z * D3) / (C2 + z * D3)
C2 = C2 + z * D3
C1 = (C1 * C2 - C1 * z * D3) / (C2 - z * D3)
C2 = C2 - z * D3
E1 = (E1 * E2 + C1 * z * E3) / (E2 + z * E3)
E2 = E2 + z * E3
E1 = (E1 * E2 - E1 * z * G3) / (E2 - z * G3)
E2 = E2 - z * G3
F1 = (F1 * F2 + E1 * z * F3) / (F2 + z * F3)
F2 = F2 + z * F3
F1 = (F1 * F2 - F1 * z * F3) / (F2 - z * F3)
F2 = F2 - z * F3
E1 = (E1 * E2 + F1 * z * F3) / (E2 + z * F3)
E2 = E2 + z * F3
E1 = (E1 * E2 - E1 * z * F3) / (E2 - z * F3)
E2 = E2 - z * F3
G1 = (G1 * G2 + E1 * z * G3) / (G2 + z * G3)
G2 = G2 + z * G3
v = v + 1
X = t
X = (X * 2000 / Mx)
Y = (B1 * B2) + (C1 * C2) + (D1 * D2)
If v = 50 Then dSMM(1) = Abs(Y - SMM(1))
If v = 100 Then dSMM(2) = Abs(Y - SMM(2))
If v = 200 Then dSMM(3) = Abs(Y - SMM(3))
If v = 400 Then dSMM(4) = Abs(Y - SMM(4))
If v = 900 Then dSMM(5) = Abs(Y - SMM(5))
If v = 1500 Then dSMM(6) = Abs(Y - SMM(6))
If v = 2100 Then dSMM(7) = Abs(Y - SMM(7))
If v = 3300 Then dSMM(8) = Abs(Y - SMM(8))
If v = 5100 Then dSMM(9) = Abs(Y - SMM(9))
Y = 2000 - (Y * 2000 / My1)
Picture1.PSet (X, Y), QBColor(9)
Y = (E1 * E2) + (F1 * F2)
If v = 50 Then dDA(1) = Abs(Y - DA(1))
If v = 100 Then dDA(2) = Abs(Y - DA(2))
If v = 200 Then dDA(3) = Abs(Y - DA(3))
If v = 400 Then dDA(4) = Abs(Y - DA(4))
If v = 900 Then dDA(5) = Abs(Y - DA(5))
If v = 1500 Then dDA(6) = Abs(Y - DA(6))
If v = 2100 Then dDA(7) = Abs(Y - DA(7))
If v = 3300 Then dDA(8) = Abs(Y - DA(8))
If v = 5100 Then dDA(9) = Abs(Y - DA(9))
Y = 2000 - (Y * 2000 / My2)
Picture2.PSet (X, Y), QBColor(12)
Y = G1 * G2
If v = 50 Then dDMSP(1) = Abs(Y - DMSP(1))
If v = 100 Then dDMSP(2) = Abs(Y - DMSP(2))
If v = 200 Then dDMSP(3) = Abs(Y - DMSP(3))
If v = 400 Then dDMSP(4) = Abs(Y - DMSP(4))
If v = 900 Then dDMSP(5) = Abs(Y - DMSP(5))
If v = 1500 Then dDMSP(6) = Abs(Y - DMSP(6))
If v = 2100 Then dDMSP(7) = Abs(Y - DMSP(7))
If v = 3300 Then dDMSP(8) = Abs(Y - DMSP(8))
If v = 5100 Then dDMSP(9) = Abs(Y - DMSP(9))
Y = 2000 - (Y * 2000 / My3)
Picture3.PSet (X, Y), QBColor(13)
Next t
For i = 1 To Datapts Step 1
sSMM = dSMM(i) + sSMM
sDA = dDA(i) + sDA
SDMSP = dDMSP(i) + SDMSP
Next i
Text28.Text = sSMM / Datapts
Text29.Text = sDA / Datapts
Text30.Text = SDMSP / Datapts
Text31.Text = (sSMM + sDA + SDMSP) / (Datapts * 3)
End Sub

Private Sub Command2_Click()
Unload Form1
End Sub