VERSION 5.00 Begin VB.Form Form1 AutoRedraw = -1 'True BackColor = &H00C0FFFF& Caption = "Simulation of 14C-choline metabolism in transgenic tobacco expressing CMO" ClientHeight = 6765 ClientLeft = 1065 ClientTop = 345 ClientWidth = 8535 FillColor = &H00C0FFFF& FillStyle = 0 'Solid LinkTopic = "Form1" ScaleHeight = 6765 ScaleWidth = 8535 Begin VB.TextBox Text49 Height = 285 Left = 360 TabIndex = 129 Text = "50" Top = 6360 Width = 495 End Begin VB.TextBox Text48 BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Left = 7320 TabIndex = 126 Text = "0.056" Top = 3240 Width = 492 End Begin VB.TextBox Text47 Height = 285 Left = 3240 TabIndex = 125 Text = "650" Top = 6240 Width = 495 End Begin VB.TextBox Text46 BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 216 Left = 2400 TabIndex = 122 Text = "0.0725" Top = 1800 Width = 492 End Begin VB.TextBox Text45 BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 216 Left = 2400 TabIndex = 121 Text = "350" Top = 1440 Width = 492 End Begin VB.Frame Frame4 Caption = "Cho (chl)" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Left = 3120 TabIndex = 116 Top = 1440 Width = 852 Begin VB.TextBox Text44 BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 216 Left = 360 TabIndex = 118 Text = "0" Top = 240 Width = 372 End Begin VB.TextBox Text43 BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 216 Left = 360 TabIndex = 117 Text = "0.2" Top = 480 Width = 372 End Begin VB.Label Label62 Caption = "F1" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 132 Left = 120 TabIndex = 120 Top = 240 Width = 252 End Begin VB.Label Label61 Caption = "F2" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 132 Left = 120 TabIndex = 119 Top = 480 Width = 252 End End Begin VB.TextBox Text42 BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 216 Left = 720 TabIndex = 112 Text = "30" Top = 1080 Width = 372 End Begin VB.TextBox Text41 BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 216 Left = 4200 TabIndex = 111 Text = "0.55" Top = 1800 Width = 492 End Begin VB.TextBox Text39 BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Left = 6000 TabIndex = 109 Text = "2" Top = 1800 Width = 495 End Begin VB.TextBox Text38 BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Left = 5520 TabIndex = 107 Text = "2.5" Top = 3480 Width = 492 End Begin VB.TextBox Text37 BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Left = 5640 TabIndex = 105 Text = "0.15" Top = 2520 Width = 492 End Begin VB.TextBox Text36 BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 225 Left = 5520 TabIndex = 103 Text = "0.7" Top = 3120 Width = 492 End 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 = 216 Left = 2520 TabIndex = 100 Text = "3.1" Top = 3480 Width = 492 End 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 = 216 Left = 2040 TabIndex = 98 Text = "0.45" Top = 2640 Width = 492 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 = 216 Left = 1440 TabIndex = 97 Text = "0.55" Top = 2640 Width = 492 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 = 216 Left = 240 TabIndex = 94 Text = "0.6" Top = 3600 Width = 492 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 = 225 Left = 4800 TabIndex = 92 Text = "2000" Top = 3120 Width = 492 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 = 3600 TabIndex = 89 Text = "0.166" Top = 2640 Width = 495 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 = 216 Left = 2040 TabIndex = 88 Text = "400" Top = 2400 Width = 492 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 = 252 Left = 5280 TabIndex = 85 Top = 600 Width = 492 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 = 252 Left = 4080 TabIndex = 80 Top = 360 Width = 492 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 = 252 Left = 4080 TabIndex = 79 Top = 720 Width = 492 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 = 252 Left = 2880 TabIndex = 78 Top = 720 Width = 492 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 = 252 Left = 2880 TabIndex = 77 Top = 360 Width = 492 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 = 225 Left = 4800 TabIndex = 74 Text = "200" Top = 2520 Width = 492 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 = 225 Left = 4800 TabIndex = 72 Text = "80" Top = 3480 Width = 492 End Begin VB.PictureBox Picture3 Appearance = 0 'Flat BackColor = &H80000005& ForeColor = &H80000008& Height = 1812 Left = 6720 ScaleHeight = 1785 ScaleWidth = 1425 TabIndex = 64 Top = 4320 Width = 1455 Begin VB.Label Label65 BackStyle = 0 'Transparent Caption = "Ptd-Cho/10" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Left = 600 TabIndex = 71 Top = 1440 Width = 735 End Begin VB.Label Label64 BackStyle = 0 'Transparent Caption = "P-Cho" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Left = 600 TabIndex = 70 Top = 1200 Width = 495 End Begin VB.Label Label63 BackStyle = 0 'Transparent Caption = "GlyBet" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Left = 600 TabIndex = 69 Top = 960 Width = 495 End Begin VB.Label Label52 BackStyle = 0 'Transparent Caption = "Bet Ald * 50" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Left = 600 TabIndex = 68 Top = 720 Width = 735 End Begin VB.Label Label11 BackStyle = 0 'Transparent Caption = "Cho (end)" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Left = 600 TabIndex = 67 Top = 480 Width = 615 End Begin VB.Label Label8 BackStyle = 0 'Transparent Caption = "Cho (ex)" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Left = 600 TabIndex = 66 Top = 240 Width = 495 End End Begin VB.TextBox Text40 Height = 288 Left = 840 TabIndex = 62 Text = "10000" Top = 4080 Width = 615 End Begin VB.TextBox Text34 Alignment = 1 'Right Justify Height = 288 Left = 3840 TabIndex = 61 Text = "250" Top = 4080 Width = 615 End Begin VB.TextBox Text35 BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 216 Left = 2520 TabIndex = 59 Text = "40" Top = 3120 Width = 492 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 = 216 Left = 1440 TabIndex = 57 Text = "40" Top = 2400 Width = 492 End Begin VB.Frame Frame9 Caption = "Ptd-Cho" 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 = 52 Top = 3000 Width = 975 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 = 225 Left = 360 TabIndex = 54 Text = "0" Top = 240 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 = 225 Left = 360 TabIndex = 53 Text = "1800" Top = 480 Width = 495 End Begin VB.Label Label42 Caption = "E1" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 120 TabIndex = 56 Top = 240 Width = 252 End Begin VB.Label Label41 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 = 55 Top = 480 Width = 255 End End Begin VB.Frame Frame8 Caption = "P-Cho" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Left = 3600 TabIndex = 47 Top = 3000 Width = 852 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 = 216 Left = 360 TabIndex = 49 Text = "0" Top = 240 Width = 372 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 = 216 Left = 360 TabIndex = 48 Text = "70" Top = 480 Width = 372 End Begin VB.Label Label40 Caption = "D1" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 120 TabIndex = 51 Top = 240 Width = 252 End Begin VB.Label Label39 Caption = "D2" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 132 Left = 120 TabIndex = 50 Top = 480 Width = 252 End End Begin VB.Frame Frame7 Caption = "Cho (vac)" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Left = 1440 TabIndex = 42 Top = 3000 Width = 852 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 = 216 Left = 360 TabIndex = 44 Text = "0" Top = 240 Width = 372 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 = 216 Left = 360 TabIndex = 43 Text = "70" Top = 480 Width = 372 End Begin VB.Label Label38 Caption = "A5" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 120 TabIndex = 46 Top = 240 Width = 252 End Begin VB.Label Label37 Caption = "A6" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 132 Left = 120 TabIndex = 45 Top = 480 Width = 252 End 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 = 216 Left = 1320 TabIndex = 40 Text = "50" Top = 1080 Width = 372 End Begin VB.Frame Frame5 Caption = "Cho (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 = 1080 TabIndex = 35 Top = 120 Width = 975 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 = 216 Left = 360 TabIndex = 39 Text = "170" Top = 480 Width = 492 End 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 = 216 Left = 360 TabIndex = 36 Text = "54" Top = 240 Width = 492 End Begin VB.Label Label29 Caption = "P2" 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 = 480 Width = 255 End Begin VB.Label Label28 Caption = "P1" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 120 TabIndex = 37 Top = 240 Width = 252 End 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 = 216 Left = 240 TabIndex = 33 Text = "2000" Top = 3120 Width = 492 End Begin VB.CommandButton Command2 Caption = "End" Height = 372 Left = 7800 TabIndex = 28 Top = 600 Width = 612 End Begin VB.PictureBox Picture2 BackColor = &H80000009& BorderStyle = 0 'None Height = 2010 Left = 4560 Picture = "Cmo.frx":0000 ScaleHeight = 2010 ScaleWidth = 2010 TabIndex = 23 Top = 4200 Width = 2010 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 = 6000 TabIndex = 21 Text = "40" Top = 1440 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 = 216 Left = 4200 TabIndex = 19 Text = "20" Top = 1440 Width = 492 End Begin VB.Frame Frame3 Caption = "GlyBet" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Left = 6720 TabIndex = 14 Top = 1440 Width = 852 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 = 225 Left = 360 TabIndex = 18 Text = "30" Top = 480 Width = 372 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 = 225 Left = 360 TabIndex = 17 Text = "0" Top = 240 Width = 372 End Begin VB.Label Label19 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 = 16 Top = 480 Width = 255 End Begin VB.Label Label18 Caption = "C1" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 120 TabIndex = 15 Top = 240 Width = 252 End End Begin VB.Frame Frame2 Caption = "BetAld" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Left = 4920 TabIndex = 9 Top = 1440 Width = 852 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 = 216 Left = 360 TabIndex = 11 Text = "0.2" Top = 480 Width = 372 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 = 225 Left = 360 TabIndex = 10 Text = "0" Top = 240 Width = 372 End Begin VB.Label Label17 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 = 13 Top = 480 Width = 255 End Begin VB.Label Label16 Caption = "B1" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 252 Left = 120 TabIndex = 12 Top = 240 Width = 252 End End Begin VB.Frame Frame1 Caption = "Cho (cy)" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 735 Left = 1440 TabIndex = 6 Top = 1440 Width = 852 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 = 216 Left = 360 TabIndex = 31 Text = "2" Top = 480 Width = 372 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 = 216 Left = 360 TabIndex = 7 Text = "0" Top = 240 Width = 372 End Begin VB.Label Label14 Caption = "A2" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 132 Left = 120 TabIndex = 32 Top = 480 Width = 252 End Begin VB.Label Label15 Caption = "A1" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 132 Left = 120 TabIndex = 8 Top = 240 Width = 252 End End Begin VB.PictureBox Picture1 BackColor = &H80000009& BorderStyle = 0 'None Height = 2010 Left = 1560 Picture = "Cmo.frx":D3BA ScaleHeight = 2010 ScaleWidth = 2010 TabIndex = 5 Top = 4200 Width = 2010 End Begin VB.CommandButton Command1 Caption = "Start" Height = 372 Left = 7800 TabIndex = 0 Top = 120 Width = 612 End Begin VB.Label Label68 BackStyle = 0 'Transparent Caption = "x" 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 = 131 Top = 6480 Width = 135 End Begin VB.Label Label67 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "Scaling factor for radioactivity in GlyBet and BetAld" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 855 Left = 120 TabIndex = 130 Top = 5520 Width = 735 End Begin VB.Label Label66 BackStyle = 0 'Transparent Caption = "E5" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Left = 7440 TabIndex = 128 Top = 3080 Width = 255 End Begin VB.Label Label27 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "unlabeled Ptd-DME" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 7920 TabIndex = 127 Top = 3240 Width = 615 End Begin VB.Line Line48 X1 = 7200 X2 = 7080 Y1 = 3480 Y2 = 3360 End Begin VB.Line Line47 X1 = 7200 X2 = 7080 Y1 = 3240 Y2 = 3360 End Begin VB.Line Line46 X1 = 7920 X2 = 7080 Y1 = 3360 Y2 = 3360 End Begin VB.Label Label20 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "F3, Vm11" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Index = 2 Left = 2400 TabIndex = 124 Top = 1680 Width = 615 End Begin VB.Label Label20 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "F3, Km11" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Index = 1 Left = 2400 TabIndex = 123 Top = 1320 Width = 615 End Begin VB.Line Line42 X1 = 3000 X2 = 3120 Y1 = 1800 Y2 = 1680 End Begin VB.Line Line41 X1 = 3000 X2 = 3120 Y1 = 1560 Y2 = 1680 End Begin VB.Line Line40 X1 = 3120 X2 = 2280 Y1 = 1680 Y2 = 1680 End Begin VB.Label Label60 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 = 4340 TabIndex = 115 Top = 5120 Width = 135 End Begin VB.Label Label59 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 = 1200 TabIndex = 114 Top = 5145 Width = 135 End Begin VB.Label Label57 BackStyle = 0 'Transparent Caption = "A8, Vm1" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Left = 600 TabIndex = 113 Top = 920 Width = 495 End Begin VB.Label Label56 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "B3, Vm8" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Left = 4080 TabIndex = 110 Top = 1680 Width = 615 End Begin VB.Label Label55 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "C3 , Vm9" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Left = 5880 TabIndex = 108 Top = 1680 Width = 615 End Begin VB.Label Label54 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "E3, Vm3" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Left = 5420 TabIndex = 106 Top = 3720 Width = 615 End Begin VB.Label Label53 BackStyle = 0 'Transparent Caption = "D4, Vm4" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Left = 5640 TabIndex = 104 Top = 2380 Width = 495 End Begin VB.Label Label51 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "E4, Vm10" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Left = 5430 TabIndex = 102 Top = 2970 Width = 615 End Begin VB.Label Label50 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "D3, Vm2" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Left = 2520 TabIndex = 101 Top = 3345 Width = 495 End Begin VB.Label Label49 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "A7, Vm7" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Left = 2540 TabIndex = 99 Top = 2640 Width = 495 End Begin VB.Label Label48 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "A4, Vm6" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Left = 900 TabIndex = 96 Top = 2655 Width = 495 End Begin VB.Label Label33 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "A3, Vm5" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Left = 260 TabIndex = 95 Top = 3460 Width = 495 End Begin VB.Label Label46 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "E4, Km10" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Left = 4700 TabIndex = 93 Top = 2970 Width = 615 End Begin VB.Line Line45 X1 = 4560 X2 = 4440 Y1 = 3360 Y2 = 3240 End Begin VB.Line Line44 X1 = 4560 X2 = 4440 Y1 = 3120 Y2 = 3240 End Begin VB.Line Line43 X1 = 6120 X2 = 4440 Y1 = 3240 Y2 = 3240 End Begin VB.Label Label32 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "unlabeled P-DME" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 3480 TabIndex = 91 Top = 2220 Width = 735 End Begin VB.Label Label30 BackStyle = 0 'Transparent Caption = "D5" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Left = 3380 TabIndex = 90 Top = 2660 Width = 255 End Begin VB.Line Line39 X1 = 3960 X2 = 3840 Y1 = 2880 Y2 = 3000 End Begin VB.Line Line38 X1 = 3720 X2 = 3840 Y1 = 2880 Y2 = 3000 End Begin VB.Line Line37 X1 = 3840 X2 = 3840 Y1 = 2520 Y2 = 3000 End Begin VB.Label Label24 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "A7, Km7" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Left = 2540 TabIndex = 87 Top = 2415 Width = 495 End Begin VB.Line Line33 X1 = 2160 X2 = 2160 Y1 = 3000 Y2 = 2160 End Begin VB.Line Line19 X1 = 2040 X2 = 2160 Y1 = 1320 Y2 = 1440 End Begin VB.Line Line18 X1 = 2280 X2 = 2160 Y1 = 1320 Y2 = 1440 End Begin VB.Line Line13 X1 = 2160 X2 = 2160 Y1 = 1200 Y2 = 1440 End Begin VB.Line Line9 X1 = 2160 X2 = 7680 Y1 = 1200 Y2 = 1200 End Begin VB.Line Line7 X1 = 7680 X2 = 7680 Y1 = 1200 Y2 = 2640 End Begin VB.Line Line36 X1 = 6720 X2 = 6720 Y1 = 3720 Y2 = 3960 End Begin VB.Line Line35 X1 = 480 X2 = 6720 Y1 = 3960 Y2 = 3960 End Begin VB.Line Line34 X1 = 480 X2 = 480 Y1 = 2040 Y2 = 3960 End Begin VB.Label Label45 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "Grand mean" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 330 Left = 5880 TabIndex = 86 Top = 555 Width = 495 End Begin VB.Label Label44 BackStyle = 0 'Transparent Caption = "Ptd-Cho" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Left = 4680 TabIndex = 84 Top = 375 Width = 495 End Begin VB.Label Label43 BackStyle = 0 'Transparent Caption = "P-Cho" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Left = 4680 TabIndex = 83 Top = 735 Width = 495 End Begin VB.Label Label36 BackStyle = 0 'Transparent Caption = "GlyBet" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Left = 3480 TabIndex = 82 Top = 720 Width = 615 End Begin VB.Label Label35 BackStyle = 0 'Transparent Caption = "Cho" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Left = 3480 TabIndex = 81 Top = 375 Width = 375 End Begin VB.Label Label34 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "Mean absolute deviations" 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 = 3360 TabIndex = 76 Top = 120 Width = 2655 End Begin VB.Label Label25 BackStyle = 0 'Transparent Caption = "D4, Km4" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Left = 4810 TabIndex = 75 Top = 2380 Width = 495 End Begin VB.Line Line17 X1 = 4320 X2 = 7680 Y1 = 2640 Y2 = 2640 End Begin VB.Line Line8 X1 = 4320 X2 = 4320 Y1 = 3000 Y2 = 2640 End Begin VB.Label Label22 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "E3, Km3" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Left = 4800 TabIndex = 73 Top = 3720 Width = 495 End Begin VB.Line Line32 X1 = 6000 X2 = 6120 Y1 = 3720 Y2 = 3600 End Begin VB.Line Line25 X1 = 6000 X2 = 6120 Y1 = 3480 Y2 = 3600 End Begin VB.Line Line24 X1 = 4440 X2 = 6120 Y1 = 3600 Y2 = 3600 End Begin VB.Line Line23 X1 = 3600 X2 = 3000 Y1 = 3600 Y2 = 3600 End Begin VB.Label Label5 BackStyle = 0 'Transparent Caption = "Pool Size Key:" Height = 255 Left = 6960 TabIndex = 65 Top = 4080 Width = 1095 End Begin VB.Label Label4 BackColor = &H80000009& BackStyle = 0 'Transparent Caption = "650" Height = 255 Left = 6400 TabIndex = 63 Top = 6240 Width = 375 End Begin VB.Label Label58 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "D3, Km2" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Left = 2520 TabIndex = 60 Top = 2985 Width = 495 End Begin VB.Label Label47 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "A4, Km6" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Left = 900 TabIndex = 58 Top = 2415 Width = 495 End Begin VB.Line Line31 X1 = 2280 X2 = 2160 Y1 = 2280 Y2 = 2160 End Begin VB.Line Line30 X1 = 2040 X2 = 2160 Y1 = 2280 Y2 = 2160 End Begin VB.Line Line29 X1 = 3480 X2 = 3600 Y1 = 3480 Y2 = 3600 End Begin VB.Line Line28 X1 = 2760 X2 = 2760 Y1 = 2040 Y2 = 3600 End Begin VB.Line Line27 X1 = 3480 X2 = 3600 Y1 = 3720 Y2 = 3600 End Begin VB.Line Line26 X1 = 2280 X2 = 2760 Y1 = 2040 Y2 = 2040 End Begin VB.Line Line22 X1 = 1680 X2 = 1560 Y1 = 3000 Y2 = 2880 End Begin VB.Line Line21 X1 = 1680 X2 = 1800 Y1 = 3000 Y2 = 2880 End Begin VB.Line Line20 X1 = 1680 X2 = 1680 Y1 = 2160 Y2 = 3000 End Begin VB.Label Label31 BackStyle = 0 'Transparent Caption = "A8, Km1" 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 = 41 Top = 920 Width = 495 End Begin VB.Line Line16 X1 = 1440 X2 = 1560 Y1 = 1320 Y2 = 1440 End Begin VB.Line Line15 X1 = 1680 X2 = 1560 Y1 = 1320 Y2 = 1440 End Begin VB.Line Line14 X1 = 1560 X2 = 1560 Y1 = 840 Y2 = 1440 End Begin VB.Label Label26 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "A3, Km5" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Left = 260 TabIndex = 34 Top = 2970 Width = 495 End Begin VB.Line Line12 X1 = 1320 X2 = 1440 Y1 = 2160 Y2 = 2040 End Begin VB.Line Line11 X1 = 1320 X2 = 1440 Y1 = 1920 Y2 = 2040 End Begin VB.Line Line10 X1 = 480 X2 = 1440 Y1 = 2040 Y2 = 2040 End Begin VB.Label Label23 Alignment = 2 'Center BackStyle = 0 'Transparent 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 = 375 Left = 3840 TabIndex = 30 Top = 4680 Width = 615 End Begin VB.Label Label13 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "Radioactivity" 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 = 240 TabIndex = 29 Top = 4920 Width = 1335 End Begin VB.Label Label12 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "nmol.gfw" Height = 255 Left = 3720 TabIndex = 27 Top = 5160 Width = 615 WordWrap = -1 'True End Begin VB.Label Label10 BackStyle = 0 'Transparent Caption = "0" Height = 255 Left = 4420 TabIndex = 26 Top = 6120 Width = 135 End Begin VB.Label Label9 BackStyle = 0 'Transparent Caption = "Time (min)" Height = 255 Left = 5280 TabIndex = 25 Top = 6240 Width = 855 End Begin VB.Label Label1 BackStyle = 0 'Transparent Caption = "0" Height = 255 Left = 4560 TabIndex = 24 Top = 6240 Width = 135 End Begin VB.Label Label21 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "C3 , Km9" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Left = 5880 TabIndex = 22 Top = 1320 Width = 615 End Begin VB.Label Label20 Alignment = 2 'Center BackStyle = 0 'Transparent Caption = "B3, Km8" BeginProperty Font Name = "Small Fonts" Size = 6 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 135 Index = 0 Left = 4080 TabIndex = 20 Top = 1320 Width = 615 End Begin VB.Line Line6 X1 = 6600 X2 = 6720 Y1 = 1560 Y2 = 1680 End Begin VB.Line Line5 X1 = 6600 X2 = 6720 Y1 = 1800 Y2 = 1680 End Begin VB.Line Line4 X1 = 5760 X2 = 6720 Y1 = 1680 Y2 = 1680 End Begin VB.Line Line3 X1 = 4800 X2 = 4920 Y1 = 1800 Y2 = 1680 End Begin VB.Line Line2 X1 = 4800 X2 = 4920 Y1 = 1560 Y2 = 1680 End Begin VB.Line Line1 X1 = 4920 X2 = 3960 Y1 = 1680 Y2 = 1680 End Begin VB.Label Label7 Alignment = 2 'Center BackColor = &H80000009& BackStyle = 0 'Transparent Caption = "nCi.gfw" Height = 255 Left = 480 TabIndex = 4 Top = 5160 Width = 855 End Begin VB.Label Label6 Alignment = 2 'Center BackColor = &H80000009& BackStyle = 0 'Transparent Caption = "Time (min)" Height = 255 Left = 2160 TabIndex = 3 Top = 6240 Width = 975 End Begin VB.Label Label3 Alignment = 1 'Right Justify BackColor = &H80000009& BackStyle = 0 'Transparent Caption = "0" Height = 255 Left = 1380 TabIndex = 2 Top = 6120 Width = 135 End Begin VB.Label Label2 BackColor = &H80000009& BackStyle = 0 'Transparent Caption = "0" Height = 255 Left = 1560 TabIndex = 1 Top = 6240 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() Picture1.Refresh Picture2.Refresh Mx = Text47.Text Label4.Caption = Text47.Text My1 = Text40.Text My2 = Text34.Text Dim Datapts As Integer Dim q As Integer Dim SEndCho Dim SPCho Dim SGlybet Dim SPtdC Dim Total Dim Timearray(6) Dim EndChoarray(6) Dim dEndChoarray(6) Dim PChoarray(6) Dim dPChoarray(6) Dim Glybetarray(6) Dim dGlybetarray(6) Dim PtdCarray(6) Dim dPtdCarray(6) Sf = Text49.Text Datapts = 6 q = 0 SEndCho = 0 SPCho = 0 SGlybet = 0 SPtdC = 0 Timearray(1) = 15 Timearray(2) = 30 Timearray(3) = 60 Timearray(4) = 120 Timearray(5) = 300 Timearray(6) = 600 EndChoarray(1) = 393.4 * 20 EndChoarray(2) = 343.2 * 20 EndChoarray(3) = 143.4 * 20 EndChoarray(4) = 38.1 * 20 EndChoarray(5) = 76.9 * 20 EndChoarray(6) = 36.5 * 20 Glybetarray(1) = 0.31 * 20 Glybetarray(2) = 0.5 * 20 Glybetarray(3) = 0.1 * 20 Glybetarray(4) = 2.24 * 20 Glybetarray(5) = 2.54 * 20 Glybetarray(6) = 2.88 * 20 PChoarray(1) = 43.3 * 20 PChoarray(2) = 81.8 * 20 PChoarray(3) = 229.7 * 20 PChoarray(4) = 161.8 * 20 PChoarray(5) = 10.1 * 20 PChoarray(6) = 10.1 * 20 PtdCarray(1) = 22.7 * 20 PtdCarray(2) = 34.4 * 20 PtdCarray(3) = 78.4 * 20 PtdCarray(4) = 257 * 20 PtdCarray(5) = 371.7 * 20 PtdCarray(6) = 412 * 20 For i = 1 To Datapts Step 1 X = Timearray(i) X = (X * 2000 / Mx) Y = EndChoarray(i) Y = 2000 - (Y * 2000 / My1) Picture1.Circle (X, Y), 30, RGB(0, 200, 0) Y = Glybetarray(i) * Sf Y = 2000 - (Y * 2000 / My1) Picture1.Circle (X, Y), 30, QBColor(9) Y = PChoarray(i) Y = 2000 - (Y * 2000 / My1) Picture1.Circle (X, Y), 30, QBColor(12) Y = PtdCarray(i) Y = 2000 - (Y * 2000 / My1) Picture1.Circle (X, Y), 30, QBColor(13) Next i Km1 = Text15.Text P1 = Text13.Text P2 = Text14.Text A1 = Text1.Text A2 = Text11.Text Km5 = Text12.Text Vm5 = Text26.Text Km6 = Text29.Text Vm6 = Text31.Text A5 = Text20.Text A6 = Text19.Text B1 = Text2.Text B2 = Text3.Text Km8 = Text8.Text Vm8 = Text41.Text C1 = Text4.Text C2 = Text5.Text Km9 = Text9.Text Vm9 = Text39.Text D1 = Text22.Text D2 = Text21.Text D5 = Text30.Text Km2 = Text35.Text Vm2 = Text33.Text Km4 = Text7.Text Vm4 = Text37.Text E1 = Text24.Text E2 = Text23.Text Km3 = Text6.Text Vm3 = Text38.Text Km7 = Text28.Text Vm7 = Text32.Text Km10 = Text27.Text Vm10 = Text36.Text Vm1 = Text42.Text F1 = Text44.Text F2 = Text43.Text Km11 = Text45.Text Vm11 = Text46.Text E5 = Text48.Text G1 = 0 z = Mx / 6000 For t = 0 To Mx Step z q = Int(t) A8 = (Vm1 * P2) / (Km1 + P2) P2 = P2 - z * A8 D3 = (Vm2 * A2) / (Km2 + A2) E3 = (Vm3 * D2) / (Km3 + D2) A3 = (Vm5 * E2) / (Km5 + E2) D4 = (Vm4 * D2) / (Km4 + D2) C3 = (Vm9 * B2) / (Km9 + B2) B3 = (Vm8 * F2) / (Km8 + F2) A4 = (Vm6 * A2) / (Km6 + A2) A7 = (Vm7 * A6) / (Km7 + A6) E4 = (Vm10 * E2) / (Km10 + E2) F3 = (Vm11 * A2) / (Km11 + A2) If A8 > 0 Then A1 = (A1 * A2 + P1 * z * A8) / (A2 + z * A8) If A8 > 0 Then A2 = A2 + z * A8 If A3 > 0 Then A1 = (A1 * A2 + E1 * z * A3) / (A2 + z * A3) If A3 > 0 Then A2 = A2 + z * A3 If A4 > 0 Then A1 = (A1 * A2 - A1 * z * A4) / (A2 - z * A4) If A4 > 0 Then A2 = A2 - z * A4 If A4 > 0 Then A5 = (A5 * A6 + A1 * z * A4) / (A6 + z * A4) If A4 > 0 Then A6 = A6 + z * A4 If A7 > 0 Then A5 = (A5 * A6 - A5 * z * A7) / (A6 - z * A7) If A7 > 0 Then A6 = A6 - z * A7 If A7 > 0 Then A1 = (A1 * A2 + A5 * z * A7) / (A2 + z * A7) If A7 > 0 Then A2 = A2 + z * A7 If D3 > 0 Then A1 = (A1 * A2 - A1 * z * D3) / (A2 - z * D3) If D3 > 0 Then A2 = A2 - z * D3 If F3 > 0 Then A1 = (A1 * A2 - A1 * z * F3) / (A2 - z * F3) If F3 > 0 Then A2 = A2 - z * F3 If F3 > 0 Then F1 = (F1 * F2 + A1 * z * F3) / (F2 + z * F3) If F3 > 0 Then F2 = F2 + z * F3 If B3 > 0 Then F1 = (F1 * F2 - F1 * z * B3) / (F2 - z * B3) If B3 > 0 Then F2 = F2 - z * B3 If B3 > 0 Then B1 = (B1 * B2 + F1 * z * B3) / (B2 + z * B3) If B3 > 0 Then B2 = B2 + z * B3 If C3 > 0 Then B1 = (B1 * B2 - B1 * z * C3) / (B2 - z * C3) If C3 > 0 Then B2 = B2 - z * C3 If C3 > 0 Then C1 = (C1 * C2 + B1 * z * C3) / (C2 + z * C3) If C3 > 0 Then C2 = C2 + z * C3 If D3 > 0 Then D1 = (D1 * D2 + A1 * z * D3) / (D2 + z * D3) If D3 > 0 Then D2 = D2 + z * D3 If D4 > 0 Then D1 = (D1 * D2 - D1 * z * D4) / (D2 - z * D4) If D4 > 0 Then D2 = D2 - z * D4 If D5 > 0 Then D1 = (D1 * D2 + G1 * z * D5) / (D2 + z * D5) If D5 > 0 Then D2 = D2 + z * D5 If E3 > 0 Then D1 = (D1 * D2 - D1 * z * E3) / (D2 - z * E3) If E3 > 0 Then D2 = D2 - z * E3 If E3 > 0 Then E1 = (E1 * E2 + D1 * z * E3) / (E2 + z * E3) If E3 > 0 Then E2 = E2 + z * E3 If A3 > 0 Then E1 = (E1 * E2 - E1 * z * A3) / (E2 - z * A3) If A3 > 0 Then E2 = E2 - z * A3 If E4 > 0 Then E1 = (E1 * E2 - E1 * z * E4) / (E2 - z * E4) If E4 > 0 Then E2 = E2 - z * E4 If E5 > 0 Then E1 = (E1 * E2 + G1 * z * E5) / (E2 + z * E5) If E5 > 0 Then E2 = E2 + z * E5 If D4 > 0 Then A1 = (A1 * A2 + D1 * z * D4) / (A2 + z * D4) If D4 > 0 Then A2 = A2 + z * D4 If E4 > 0 Then D1 = (D1 * D2 + E1 * z * E4) / (D2 + z * E4) If E4 > 0 Then D2 = D2 + z * E4 X = t Y = P1 * P2 X = (X * 2000 / Mx) Y = 2000 - (Y * 2000 / My1) Picture1.PSet (X, Y), QBColor(0) Y = (A1 * A2) + (A5 * A6) + (F1 * F2) If q = Timearray(1) Then dEndChoarray(1) = Abs(EndChoarray(1) - Y) If q = Timearray(2) Then dEndChoarray(2) = Abs(EndChoarray(2) - Y) If q = Timearray(3) Then dEndChoarray(3) = Abs(EndChoarray(3) - Y) If q = Timearray(4) Then dEndChoarray(4) = Abs(EndChoarray(4) - Y) If q = Timearray(5) Then dEndChoarray(5) = Abs(EndChoarray(5) - Y) If q = Timearray(6) Then dEndChoarray(6) = Abs(EndChoarray(6) - Y) Y = 2000 - (Y * 2000 / My1) Picture1.PSet (X, Y), RGB(0, 200, 0) Y = (B1 * B2) * Sf Y = 2000 - (Y * 2000 / My1) Picture1.PSet (X, Y), RGB(0, 200, 245) Y = C1 * C2 If q = Timearray(1) Then dGlybetarray(1) = Abs(Glybetarray(1) - Y) If q = Timearray(2) Then dGlybetarray(2) = Abs(Glybetarray(2) - Y) If q = Timearray(3) Then dGlybetarray(3) = Abs(Glybetarray(3) - Y) If q = Timearray(4) Then dGlybetarray(4) = Abs(Glybetarray(4) - Y) If q = Timearray(5) Then dGlybetarray(5) = Abs(Glybetarray(5) - Y) If q = Timearray(6) Then dGlybetarray(6) = Abs(Glybetarray(6) - Y) Y = Y * Sf Y = 2000 - (Y * 2000 / My1) Picture1.PSet (X, Y), QBColor(9) Y = D1 * D2 If q = Timearray(1) Then dPChoarray(1) = Abs(PChoarray(1) - Y) If q = Timearray(2) Then dPChoarray(2) = Abs(PChoarray(2) - Y) If q = Timearray(3) Then dPChoarray(3) = Abs(PChoarray(3) - Y) If q = Timearray(4) Then dPChoarray(4) = Abs(PChoarray(4) - Y) If q = Timearray(5) Then dPChoarray(5) = Abs(PChoarray(5) - Y) If q = Timearray(6) Then dPChoarray(6) = Abs(PChoarray(6) - Y) Y = 2000 - (Y * 2000 / My1) Picture1.PSet (X, Y), QBColor(12) Y = E1 * E2 If q = Timearray(1) Then dPtdCarray(1) = Abs(PtdCarray(1) - Y) If q = Timearray(2) Then dPtdCarray(2) = Abs(PtdCarray(2) - Y) If q = Timearray(3) Then dPtdCarray(3) = Abs(PtdCarray(3) - Y) If q = Timearray(4) Then dPtdCarray(4) = Abs(PtdCarray(4) - Y) If q = Timearray(5) Then dPtdCarray(5) = Abs(PtdCarray(5) - Y) If q = Timearray(6) Then dPtdCarray(6) = Abs(PtdCarray(6) - Y) Y = 2000 - (Y * 2000 / My1) Picture1.PSet (X, Y), QBColor(13) Y = P2 Y = 2000 - (Y * 2000 / My2) Picture2.PSet (X, Y), QBColor(0) Y = A2 + A6 + F2 Y = 2000 - (Y * 2000 / My2) Picture2.PSet (X, Y), RGB(0, 200, 0) Y = B2 * 50 Y = 2000 - (Y * 2000 / My2) Picture2.PSet (X, Y), RGB(0, 200, 245) Y = C2 Y = 2000 - (Y * 2000 / My2) Picture2.PSet (X, Y), QBColor(9) Y = D2 Y = 2000 - (Y * 2000 / My2) Picture2.PSet (X, Y), QBColor(12) Y = E2 / 10 Y = 2000 - (Y * 2000 / My2) Picture2.PSet (X, Y), QBColor(13) Next t For X = 100 To 500 Step 10 Y = 340 Picture3.PSet (X, Y), QBColor(0) Y = 570 Picture3.PSet (X, Y), RGB(0, 200, 0) Y = 800 Picture3.PSet (X, Y), RGB(0, 200, 245) Y = 1030 Picture3.PSet (X, Y), QBColor(9) Y = 1260 Picture3.PSet (X, Y), QBColor(12) Y = 1490 Picture3.PSet (X, Y), QBColor(13) Next X For i = 1 To Datapts Step 1 SEndCho = SEndCho + dEndChoarray(i) SPCho = SPCho + dPChoarray(i) SGlybet = SGlybet + dGlybetarray(i) SPtdC = SPtdC + dPtdCarray(i) Next i Text10.Text = SEndCho / Datapts Text16.Text = SGlybet / Datapts Text17.Text = SPCho / Datapts Text18.Text = SPtdC / Datapts Total = (SEndCho + SGlybet + SPCho + SPtdC) / (Datapts * 4) Text25.Text = Total End Sub Private Sub Command2_Click() Unload Form1 End Sub