VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "GS/GOGAT CYCLE"
   ClientHeight    =   6795
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   9480
   LinkTopic       =   "Form1"
   ScaleHeight     =   6795
   ScaleWidth      =   9480
   Begin VB.Frame Frame4 
      Caption         =   "Color Key"
      Height          =   1095
      Left            =   2760
      TabIndex        =   62
      Top             =   4560
      Width           =   2415
      Begin VB.PictureBox Picture4 
         BackColor       =   &H80000009&
         Height          =   735
         Left            =   480
         ScaleHeight     =   675
         ScaleWidth      =   675
         TabIndex        =   67
         Top             =   240
         Width           =   735
      End
      Begin VB.Label Label22 
         BackStyle       =   0  'Transparent
         Caption         =   "GABA"
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   135
         Left            =   1320
         TabIndex        =   76
         Top             =   840
         Width           =   495
      End
      Begin VB.Label Label26 
         BackStyle       =   0  'Transparent
         Caption         =   "Pro"
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   135
         Left            =   1320
         TabIndex        =   66
         Top             =   720
         Width           =   255
      End
      Begin VB.Label Label23 
         BackStyle       =   0  'Transparent
         Caption         =   "Glu "
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   135
         Left            =   1320
         TabIndex        =   65
         Top             =   480
         Width           =   255
      End
      Begin VB.Label Label25 
         BackStyle       =   0  'Transparent
         Caption         =   "Gln-amino"
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   135
         Left            =   1320
         TabIndex        =   64
         Top             =   600
         Width           =   615
      End
      Begin VB.Label Label24 
         BackStyle       =   0  'Transparent
         Caption         =   "Gln-amide"
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   135
         Left            =   1320
         TabIndex        =   63
         Top             =   360
         Width           =   615
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "Chase, Isotope Abundance"
      Height          =   975
      Left            =   2760
      TabIndex        =   55
      Top             =   5760
      Width           =   2415
      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            =   1680
         TabIndex        =   60
         Text            =   "0"
         Top             =   720
         Width           =   375
      End
      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            =   1680
         TabIndex        =   59
         Text            =   "95"
         Top             =   480
         Width           =   375
      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            =   1680
         TabIndex        =   56
         Text            =   "5.0"
         Top             =   240
         Width           =   375
      End
      Begin VB.Label Label8 
         Caption         =   "Chase15N (atom%)"
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   135
         Left            =   480
         TabIndex        =   61
         Top             =   720
         Width           =   1095
      End
      Begin VB.Label Label4 
         Caption         =   "Pulse 15N (atom%)"
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   135
         Left            =   480
         TabIndex        =   58
         Top             =   480
         Width           =   1095
      End
      Begin VB.Label Label2 
         Caption         =   "Chase start time (h)"
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   135
         Left            =   480
         TabIndex        =   57
         Top             =   240
         Width           =   1095
      End
   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            =   3840
      TabIndex        =   44
      Text            =   "0.3"
      Top             =   1920
      Width           =   375
   End
   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            =   3960
      TabIndex        =   43
      Text            =   "0.1"
      Top             =   2280
      Width           =   375
   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            =   2640
      TabIndex        =   42
      Text            =   "0.1"
      Top             =   2880
      Width           =   375
   End
   Begin VB.CommandButton Command1 
      Caption         =   "End"
      Height          =   375
      Left            =   8160
      TabIndex        =   24
      Top             =   120
      Width           =   732
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Start"
      Height          =   375
      Left            =   6480
      TabIndex        =   23
      Top             =   120
      Width           =   732
   End
   Begin VB.Frame Frame3 
      Caption         =   "Pool Sizes (umol.gfw   )"
      Height          =   2130
      Left            =   120
      TabIndex        =   7
      Top             =   4560
      Width           =   2535
      Begin VB.TextBox Text33 
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   1800
         TabIndex        =   77
         Text            =   "1.4"
         Top             =   1560
         Width           =   375
      End
      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            =   1800
         TabIndex        =   54
         Text            =   "1.5"
         Top             =   600
         Width           =   375
      End
      Begin VB.TextBox Text29 
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   1800
         TabIndex        =   53
         Text            =   "1.0"
         Top             =   1320
         Width           =   375
      End
      Begin VB.TextBox Text28 
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   1800
         TabIndex        =   52
         Text            =   "1.0"
         Top             =   1080
         Width           =   375
      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            =   1800
         TabIndex        =   51
         Text            =   "3.0"
         Top             =   840
         Width           =   375
      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            =   720
         TabIndex        =   22
         Text            =   "2.0"
         Top             =   1080
         Width           =   375
      End
      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            =   1800
         TabIndex        =   20
         Text            =   "1.0"
         Top             =   360
         Width           =   375
      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            =   720
         TabIndex        =   18
         Text            =   "3.5"
         Top             =   840
         Width           =   375
      End
      Begin VB.TextBox Text4 
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   720
         TabIndex        =   15
         Text            =   "1.0"
         Top             =   1560
         Width           =   375
      End
      Begin VB.TextBox Text3 
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   720
         TabIndex        =   13
         Text            =   "0.8"
         Top             =   1320
         Width           =   375
      End
      Begin VB.TextBox Text2 
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   720
         TabIndex        =   11
         Text            =   "2.5"
         Top             =   600
         Width           =   375
      End
      Begin VB.TextBox Text1 
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   720
         TabIndex        =   8
         Text            =   "3.5"
         Top             =   360
         Width           =   375
      End
      Begin VB.Label Label36 
         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            =   1590
         TabIndex        =   85
         Top             =   0
         Width           =   135
      End
      Begin VB.Label Label28 
         Caption         =   "Cyt GABA"
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   135
         Left            =   1200
         TabIndex        =   78
         Top             =   1560
         Width           =   615
      End
      Begin VB.Label Label21 
         Alignment       =   2  'Center
         Caption         =   "Prot. Pro "
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   135
         Left            =   1200
         TabIndex        =   50
         Top             =   1320
         Width           =   495
      End
      Begin VB.Label Label20 
         Caption         =   "Vac Pro"
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   135
         Left            =   1200
         TabIndex        =   49
         Top             =   1080
         Width           =   495
      End
      Begin VB.Label Label19 
         Caption         =   "Cyt Pro "
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   135
         Left            =   1200
         TabIndex        =   48
         Top             =   840
         Width           =   495
      End
      Begin VB.Label Label18 
         Alignment       =   2  'Center
         Caption         =   "Prot. Glu "
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   135
         Left            =   1200
         TabIndex        =   47
         Top             =   600
         Width           =   495
      End
      Begin VB.Label Label40 
         Caption         =   "Vac Glu"
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   135
         Left            =   1200
         TabIndex        =   21
         Top             =   360
         Width           =   495
      End
      Begin VB.Label Label39 
         Caption         =   "Vac Gln"
         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        =   19
         Top             =   840
         Width           =   495
      End
      Begin VB.Label Label27 
         Alignment       =   2  'Center
         Caption         =   "Prot. Gln "
         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        =   16
         Top             =   1080
         Width           =   495
      End
      Begin VB.Label Label16 
         Caption         =   "Cyt Glu "
         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        =   14
         Top             =   1560
         Width           =   495
      End
      Begin VB.Label Label15 
         Caption         =   "Chl Glu "
         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        =   12
         Top             =   1320
         Width           =   495
      End
      Begin VB.Label Label14 
         Caption         =   "Cyt Gln "
         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        =   10
         Top             =   600
         Width           =   495
      End
      Begin VB.Label Label13 
         Caption         =   "Chl Gln"
         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        =   9
         Top             =   360
         Width           =   495
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "Simulations"
      Height          =   6075
      Left            =   5280
      TabIndex        =   1
      Top             =   600
      Width           =   4095
      Begin VB.OptionButton Option5 
         Caption         =   "Prot."
         Height          =   195
         Left            =   240
         TabIndex        =   72
         Top             =   3720
         Width           =   735
      End
      Begin VB.OptionButton Option4 
         Caption         =   "Total free"
         Height          =   255
         Left            =   240
         TabIndex        =   71
         Top             =   1680
         Value           =   -1  'True
         Width           =   975
      End
      Begin VB.OptionButton Option3 
         Caption         =   "Vac"
         Height          =   255
         Left            =   240
         TabIndex        =   70
         Top             =   3240
         Width           =   615
      End
      Begin VB.OptionButton Option2 
         Caption         =   "Cyt"
         Height          =   255
         Left            =   240
         TabIndex        =   69
         Top             =   2760
         Width           =   615
      End
      Begin VB.OptionButton Option1 
         Caption         =   "Chl"
         Height          =   195
         Left            =   240
         TabIndex        =   68
         Top             =   2280
         Width           =   615
      End
      Begin VB.TextBox Text15 
         Height          =   285
         Left            =   1320
         TabIndex        =   34
         Text            =   "12"
         Top             =   3360
         Width           =   375
      End
      Begin VB.TextBox Text14 
         Height          =   285
         Left            =   1200
         TabIndex        =   33
         Text            =   "80"
         Top             =   360
         Width           =   495
      End
      Begin VB.TextBox Text13 
         Height          =   285
         Left            =   3480
         TabIndex        =   32
         Text            =   "10"
         Top             =   2520
         Width           =   495
      End
      Begin VB.PictureBox Picture3 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         BorderStyle     =   0  'None
         ForeColor       =   &H80000008&
         Height          =   2010
         Left            =   1800
         Picture         =   "gsgogat.frx":0000
         ScaleHeight     =   2010
         ScaleWidth      =   2010
         TabIndex        =   25
         Top             =   3480
         Width           =   2010
      End
      Begin VB.PictureBox Picture2 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         BorderStyle     =   0  'None
         ForeColor       =   &H80000008&
         Height          =   2010
         Left            =   1800
         Picture         =   "gsgogat.frx":D3BA
         ScaleHeight     =   2010
         ScaleWidth      =   2010
         TabIndex        =   2
         Top             =   480
         Width           =   2010
      End
      Begin VB.Label Label31 
         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            =   1620
         TabIndex        =   80
         Top             =   4370
         Width           =   135
      End
      Begin VB.Label Label17 
         Caption         =   "10"
         Height          =   255
         Left            =   3720
         TabIndex        =   31
         Top             =   5520
         Width           =   255
      End
      Begin VB.Label Label12 
         Caption         =   "Time (h)"
         Height          =   255
         Left            =   2520
         TabIndex        =   30
         Top             =   5520
         Width           =   615
      End
      Begin VB.Label Label11 
         Caption         =   "0"
         Height          =   255
         Left            =   1800
         TabIndex        =   29
         Top             =   5520
         Width           =   135
      End
      Begin VB.Label Label10 
         Caption         =   "0"
         Height          =   255
         Left            =   1560
         TabIndex        =   28
         Top             =   5280
         Width           =   135
      End
      Begin VB.Label Label6 
         Alignment       =   2  'Center
         Caption         =   "Pool Sizes"
         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            =   1800
         TabIndex        =   27
         Top             =   3240
         Width           =   2055
      End
      Begin VB.Label Label5 
         Alignment       =   2  'Center
         Caption         =   "umol.gfw"
         Height          =   255
         Left            =   960
         TabIndex        =   26
         Top             =   4440
         Width           =   735
      End
      Begin VB.Label Label29 
         Alignment       =   2  'Center
         Caption         =   "15N Abundance"
         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            =   1800
         TabIndex        =   17
         Top             =   240
         Width           =   2055
      End
      Begin VB.Label Label9 
         Caption         =   "Time (h)"
         Height          =   255
         Left            =   2520
         TabIndex        =   6
         Top             =   2520
         Width           =   615
      End
      Begin VB.Label Label7 
         Caption         =   "0"
         Height          =   255
         Left            =   1560
         TabIndex        =   5
         Top             =   2400
         Width           =   135
      End
      Begin VB.Label Label3 
         Caption         =   "% 15N"
         Height          =   255
         Left            =   1200
         TabIndex        =   4
         Top             =   1200
         Width           =   495
      End
      Begin VB.Label Label1 
         Caption         =   "0"
         Height          =   255
         Left            =   1800
         TabIndex        =   3
         Top             =   2520
         Width           =   135
      End
   End
   Begin VB.PictureBox Picture1 
      AutoSize        =   -1  'True
      Height          =   4410
      Left            =   120
      Picture         =   "gsgogat.frx":1A774
      ScaleHeight     =   4350
      ScaleWidth      =   4980
      TabIndex        =   0
      Top             =   120
      Width           =   5040
      Begin VB.TextBox Text32 
         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        =   75
         Text            =   "0.3"
         Top             =   2640
         Width           =   375
      End
      Begin VB.TextBox Text31 
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   2640
         TabIndex        =   74
         Text            =   "0.3"
         Top             =   2280
         Width           =   375
      End
      Begin VB.TextBox Text30 
         BeginProperty Font 
            Name            =   "Small Fonts"
            Size            =   6
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   2640
         TabIndex        =   73
         Text            =   "0.6"
         Top             =   2040
         Width           =   375
      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            =   4560
         TabIndex        =   46
         Text            =   "0.1"
         Top             =   3840
         Width           =   375
      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            =   4320
         TabIndex        =   45
         Text            =   "0.1"
         Top             =   2880
         Width           =   375
      End
      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            =   1080
         TabIndex        =   41
         Text            =   "0.1"
         Top             =   2640
         Width           =   375
      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            =   720
         TabIndex        =   40
         Text            =   "0.2"
         Top             =   2880
         Width           =   375
      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            =   240
         TabIndex        =   39
         Text            =   "0.3"
         Top             =   2640
         Width           =   375
      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            =   3120
         TabIndex        =   38
         Text            =   "0.05"
         Top             =   3000
         Width           =   375
      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            =   3720
         TabIndex        =   37
         Text            =   "4.15"
         Top             =   2640
         Width           =   375
      End
      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            =   1680
         TabIndex        =   36
         Text            =   "0.6"
         Top             =   1560
         Width           =   375
      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            =   1440
         TabIndex        =   35
         Text            =   "5.4"
         Top             =   480
         Width           =   375
      End
      Begin VB.Label Label35 
         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            =   810
         TabIndex        =   84
         Top             =   1400
         Width           =   135
      End
      Begin VB.Label Label33 
         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            =   480
         TabIndex        =   82
         Top             =   1410
         Width           =   135
      End
      Begin VB.Label Label32 
         BackStyle       =   0  'Transparent
         Caption         =   "umol.h .gfw"
         Height          =   255
         Left            =   30
         TabIndex        =   81
         Top             =   1440
         Width           =   1335
      End
      Begin VB.Label Label30 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "Rates:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000FF&
         Height          =   255
         Left            =   120
         TabIndex        =   79
         Top             =   1200
         Width           =   735
      End
   End
   Begin VB.Label Label34 
      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            =   1080
      TabIndex        =   83
      Top             =   1560
      Width           =   135
   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()
Unload Form1
End Sub

Private Sub Command2_Click()
Mx = Text13.Text
My2 = Text14.Text
My3 = Text15.Text
Label17.Caption = Text13.Text
Picture2.Refresh
Picture3.Refresh
z = Mx / 5000
a1 = Text17.Text
a2 = Text18.Text
TC = (Text16.Text) * 1
r1 = Text5.Text
r2 = Text6.Text
r3 = Text12.Text
r4 = Text8.Text
r5 = Text9.Text
r6 = Text21.Text
r7 = Text7.Text
r8 = Text11.Text
r9 = Text22.Text
r10 = Text23.Text
r11 = Text24.Text
r12 = Text25.Text
r13 = Text30.Text
r14 = Text31.Text
r15 = Text32.Text
b1 = 0
b2 = Text1.Text
b3 = 0
b4 = Text2.Text
b5 = 0
b6 = Text19.Text
b7 = 0
b8 = Text10.Text
c1 = 0
c2 = Text3.Text
c3 = 0
c4 = Text4.Text
c5 = 0
c6 = Text20.Text
c7 = 0
c8 = Text26.Text
d1 = 0
d2 = Text1.Text
d3 = 0
d4 = Text2.Text
d5 = 0
d6 = Text19.Text
d7 = 0
d8 = Text10.Text
e1 = 0
e2 = Text27.Text
e3 = 0
e4 = Text28.Text
e5 = 0
e6 = Text29.Text
f1 = 0
f2 = Text33.Text
For t = 0 To Mx Step z
If t > TC Then a1 = a2
b1 = (b1 * b2 + a1 * z * r1) / (b2 + z * r1)
b2 = b2 + z * r1
b1 = (b1 * b2 - b1 * z * r1) / (b2 - z * r1)
b2 = b2 - z * r1
c1 = (c1 * c2 + b1 * z * r1) / (c2 + z * r1)
c2 = c2 + z * r1
c1 = (c1 * c2 + d1 * z * r1) / (c2 + z * r1)
c2 = c2 + z * r1
c1 = (c1 * c2 - c1 * z * 2 * r1) / (c2 - z * 2 * r1)
c2 = c2 - z * 2 * r1
d1 = (d1 * d2 + c1 * z * r1) / (d2 + z * r1)
d2 = d2 + z * r1
d1 = (d1 * d2 - d1 * z * r1) / (d2 - z * r1)
d2 = d2 - z * r1
c3 = (c3 * c4 + c1 * z * r1) / (c4 + z * r1)
c4 = c4 + z * r1
c3 = (c3 * c4 + e1 * z * r9) / (c4 + z * r9)
c4 = c4 + z * r9
c3 = (c3 * c4 + f1 * z * r14) / (c4 + z * r14)
c4 = c4 + z * r14
c3 = (c3 * c4 - c3 * z * r2) / (c4 - z * r2)
c4 = c4 - z * r2
c3 = (c3 * c4 - c3 * z * r6) / (c4 - z * r6)
c4 = c4 - z * r6
c3 = (c3 * c4 - c3 * z * r7) / (c4 - z * r7)
c4 = c4 - z * r7
c3 = (c3 * c4 - c3 * z * r8) / (c4 - z * r8)
c4 = c4 - z * r8
c3 = (c3 * c4 - c3 * z * r10) / (c4 - z * r10)
c4 = c4 - z * r10
c3 = (c3 * c4 - c3 * z * r13) / (c4 - z * r13)
c4 = c4 - z * r13
b3 = (b3 * b4 + a1 * z * r2) / (b4 + z * r2)
b4 = b4 + z * r2
b3 = (b3 * b4 - b3 * z * r3) / (b4 - z * r3)
b4 = b4 - z * r3
b3 = (b3 * b4 - b3 * z * r4) / (b4 - z * r4)
b4 = b4 - z * r4
b3 = (b3 * b4 - b3 * z * r5) / (b4 - z * r5)
b4 = b4 - z * r5
d3 = (d3 * d4 + c3 * z * r2) / (d4 + z * r2)
d4 = d4 + z * r2
d3 = (d3 * d4 - d3 * z * r3) / (d4 - z * r3)
d4 = d4 - z * r3
d3 = (d3 * d4 - d3 * z * r4) / (d4 - z * r4)
d4 = d4 - z * r4
d3 = (d3 * d4 - d3 * z * r5) / (d4 - z * r5)
d4 = d4 - z * r5
e1 = (e1 * e2 + c3 * z * r10) / (e2 + z * r10)
e2 = e2 + z * r10
e1 = (e1 * e2 - e1 * z * r9) / (e2 - z * r9)
e2 = e2 - z * r9
e1 = (e1 * e2 - e1 * z * r11) / (e2 - z * r11)
e2 = e2 - z * r11
e1 = (e1 * e2 - e1 * z * r12) / (e2 - z * r12)
e2 = e2 - z * r12
e3 = (e3 * e4 + e1 * z * r12) / (e4 + z * r12)
e4 = e4 + z * r12
e5 = (e5 * e6 + e1 * z * r11) / (e6 + z * r11)
e6 = e6 + z * r11
f1 = (f1 * f2 + c3 * z * r13) / (f2 + z * r13)
f2 = f2 + z * r13
f1 = (f1 * f2 - f1 * z * r14) / (f2 - z * r14)
f2 = f2 - z * r14
f1 = (f1 * f2 - f1 * z * r15) / (f2 - z * r15)
f2 = f2 - z * r15
c5 = (c5 * c6 + c3 * z * r7) / (c6 + z * r7)
c6 = c6 + z * r7
b5 = (b5 * b6 + b3 * z * r4) / (b6 + z * r4)
b6 = b6 + z * r4
d5 = (d5 * d6 + d3 * z * r4) / (d6 + z * r4)
d6 = d6 + z * r4
c7 = (c7 * c8 + c3 * z * r6) / (c8 + z * r6)
c8 = c8 + z * r6
b7 = (b7 * b8 + b3 * z * r5) / (b8 + z * r5)
b8 = b8 + z * r5
d7 = (d7 * d8 + d3 * z * r5) / (d8 + z * r5)
d8 = d8 + z * r5
x = t
If Option4.Value = True Then Y = ((b1 * b2) + (b3 * b4) + (b5 * b6)) / (b2 + b4 + b6)
If Option1.Value = True Then Y = b1
If Option2.Value = True Then Y = b3
If Option3.Value = True Then Y = b5
If Option5.Value = True Then Y = b7
x = (x * 2000 / Mx)
Y = 2000 - (Y * 2000 / My2)
Picture2.PSet (x, Y), QBColor(10)
If Option4.Value = True Then Y = ((c1 * c2) + (c3 * c4) + (c5 * c6)) / (c2 + c4 + c6)
If Option1.Value = True Then Y = c1
If Option2.Value = True Then Y = c3
If Option3.Value = True Then Y = c5
If Option5.Value = True Then Y = c7
Y = 2000 - (Y * 2000 / My2)
Picture2.PSet (x, Y), QBColor(12)
If Option4.Value = True Then Y = ((d1 * d2) + (d3 * d4) + (d5 * d6)) / (d2 + d4 + d6)
If Option1.Value = True Then Y = d1
If Option2.Value = True Then Y = d3
If Option3.Value = True Then Y = d5
If Option5.Value = True Then Y = d7
Y = 2000 - (Y * 2000 / My2)
Picture2.PSet (x, Y), QBColor(13)
If Option1.Value = True Then Y = -10
If Option4.Value = True Then Y = ((e1 * e2) + (e3 * e4)) / (e2 + e4)
If Option2.Value = True Then Y = e1
If Option3.Value = True Then Y = e3
If Option5.Value = True Then Y = e5
Y = 2000 - (Y * 2000 / My2)
Picture2.PSet (x, Y), QBColor(9)
If Option1.Value = True Then Y = -10
If Option3.Value = True Then Y = -10
If Option5.Value = True Then Y = -10
If Option4.Value = True Then Y = f1
If Option2.Value = True Then Y = f1
Y = 2000 - (Y * 2000 / My2)
Picture2.PSet (x, Y), QBColor(7)
If Option4.Value = True Then Y = b2 + b4 + b6
If Option1.Value = True Then Y = b2
If Option2.Value = True Then Y = b4
If Option3.Value = True Then Y = b6
If Option5.Value = True Then Y = b8
Y = 2000 - (Y * 2000 / My3)
Picture3.PSet (x, Y), QBColor(10)
If Option4.Value = True Then Y = c2 + c4 + c6
If Option1.Value = True Then Y = c2
If Option2.Value = True Then Y = c4
If Option3.Value = True Then Y = c6
If Option5.Value = True Then Y = c8
Y = 2000 - (Y * 2000 / My3)
Picture3.PSet (x, Y), QBColor(12)
If Option4.Value = True Then Y = d2 + d4 + d6
If Option1.Value = True Then Y = d2
If Option2.Value = True Then Y = d4
If Option3.Value = True Then Y = d6
If Option5.Value = True Then Y = d8
Y = 2000 - (Y * 2000 / My3)
Picture3.PSet (x, Y), QBColor(13)
If Option1.Value = True Then Y = -10
If Option4.Value = True Then Y = e2 + e4
If Option2.Value = True Then Y = e2
If Option3.Value = True Then Y = e4
If Option5.Value = True Then Y = e6
Y = 2000 - (Y * 2000 / My3)
Picture3.PSet (x, Y), QBColor(9)
If Option1.Value = True Then Y = -10
If Option3.Value = True Then Y = -10
If Option5.Value = True Then Y = -10
If Option4.Value = True Then Y = f2
If Option2.Value = True Then Y = f2
Y = 2000 - (Y * 2000 / My3)
Picture3.PSet (x, Y), QBColor(7)
Next t
Y = 200
For x = 100 To 500 Step 1
Picture4.PSet (x, Y), QBColor(10)
Next x
Y = 300
For x = 100 To 500 Step 1
Picture4.PSet (x, Y), QBColor(12)
Next x
Y = 400
For x = 100 To 500 Step 1
Picture4.PSet (x, Y), QBColor(13)
Next x
Y = 500
For x = 100 To 500 Step 1
Picture4.PSet (x, Y), QBColor(9)
Next x
Y = 600
For x = 100 To 500 Step 1
Picture4.PSet (x, Y), QBColor(7)
Next x
End Sub