Planet Source Code Jumbo Resource CD Visual Basic 1 to 7

home *** CD-ROM | disk | FTP | other *** search

/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Intensive_2121177202008.psc / Form / Apache.frm < prev

Wrap

Text File | 2008-07-03 | 35KB | 1,014 lines

VERSION 5.00 Begin VB.Form Apachefrm BackColor = &H00FF0000& BorderStyle = 0 'None Caption = "Form1" ClientHeight = 5085 ClientLeft = 0 ClientTop = 0 ClientWidth = 6465 LinkTopic = "Form1" LockControls = -1 'True ScaleHeight = 5085 ScaleWidth = 6465 ShowInTaskbar = 0 'False StartUpPosition = 3 'Windows Default Begin VB.CommandButton Command1 Caption = "Calculate" BeginProperty Font Name = "MS Sans Serif" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 300 Left = 3015 TabIndex = 26 Top = 4650 Width = 1575 End Begin VB.TextBox ApacheMortalitytxt Alignment = 2 'Center BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 285 Left = 4080 TabIndex = 24 Top = 4200 Width = 975 End Begin VB.TextBox Apachetxt Alignment = 2 'Center BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 285 Left = 4080 TabIndex = 22 Top = 3840 Width = 975 End Begin VB.Frame Frame2 BackColor = &H00FF0000& BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FFFF& Height = 495 Left = 3840 TabIndex = 18 Top = 480 Width = 1455 Begin VB.OptionButton Option8 BackColor = &H00FF0000& Caption = "NO" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FFFF& Height = 375 Index = 1 Left = 720 Style = 1 'Graphical TabIndex = 20 Top = 120 Width = 735 End Begin VB.OptionButton Option8 BackColor = &H00FF0000& Caption = "YES" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FFFF& Height = 375 Index = 0 Left = 0 Style = 1 'Graphical TabIndex = 19 Top = 120 Width = 735 End End Begin VB.Frame Frame5 BackColor = &H00FF0000& BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FFFF& Height = 495 Left = 3840 TabIndex = 14 Top = 840 Width = 1455 Begin VB.OptionButton Option7 BackColor = &H00FF0000& Caption = "YES" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FFFF& Height = 375 Index = 0 Left = 0 Style = 1 'Graphical TabIndex = 16 Top = 120 Width = 735 End Begin VB.OptionButton Option7 BackColor = &H00FF0000& Caption = "NO" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FFFF& Height = 375 Index = 1 Left = 720 Style = 1 'Graphical TabIndex = 15 Top = 120 Width = 735 End End Begin VB.ComboBox PDCpop BackColor = &H00FF0000& BeginProperty Font Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000009& Height = 315 Left = 480 TabIndex = 13 Text = "Select PDC" Top = 3360 Width = 3615 End Begin VB.CommandButton FlatButton5 Caption = "Back" Height = 300 Left = 1695 TabIndex = 11 Top = 4650 Width = 1095 End Begin VB.TextBox PDCtxt Alignment = 2 'Center BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00FF0000& Height = 285 Left = 5040 TabIndex = 9 Top = 3360 Width = 975 End Begin VB.Frame Frame1 BackColor = &H00FF0000& Height = 1575 Left = 1200 TabIndex = 4 Top = 1320 Width = 3885 Begin VB.OptionButton Option1 BackColor = &H00FF0000& Caption = "Emergency PostOp Patient" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FFFF& Height = 435 Index = 2 Left = 0 Style = 1 'Graphical TabIndex = 7 Top = 1080 Width = 3840 End Begin VB.OptionButton Option1 BackColor = &H00FF0000& Caption = "Elective PostOp Patient" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FFFF& Height = 435 Index = 1 Left = 0 Style = 1 'Graphical TabIndex = 6 Top = 600 Width = 3840 End Begin VB.OptionButton Option1 BackColor = &H00FF0000& Caption = "NonOperative Patient" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FFFF& Height = 435 Index = 0 Left = 0 Style = 1 'Graphical TabIndex = 5 Top = 120 Width = 3840 End End Begin GoffsICU.ocxFormShape ocxFormShape1 Left = 360 Top = 4560 _ExtentX = 794 _ExtentY = 873 Shape = 4 End Begin VB.Shape Shape1 BorderColor = &H80000000& Height = 15 Left = 0 Top = 3720 Width = 6735 End Begin VB.Label Label1 AutoSize = -1 'True BackColor = &H00FF0000& Caption = "Mortality Estimate =" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FFFF& Height = 240 Index = 6 Left = 1920 TabIndex = 25 Top = 4200 Width = 2040 End Begin VB.Label Label1 AutoSize = -1 'True BackColor = &H00FF0000& Caption = "Apache II Score =" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FFFF& Height = 240 Index = 5 Left = 1920 TabIndex = 23 Top = 3840 Width = 1845 End Begin VB.Label Label1 AutoSize = -1 'True BackColor = &H00FF0000& Caption = "PDC=" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FFFF& Height = 240 Index = 4 Left = 4320 TabIndex = 21 Top = 3360 Width = 600 End Begin VB.Label Label1 Alignment = 1 'Right Justify AutoSize = -1 'True BackColor = &H00FF0000& Caption = "Acute Renal Failure ?" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FFFF& Height = 240 Index = 3 Left = 1560 TabIndex = 17 Top = 600 Width = 2235 End Begin VB.Label Label1 BackStyle = 0 'Transparent Caption = "o" BeginProperty Font Name = "Marlett" Size = 21.75 Charset = 2 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H8000000E& Height = 495 Index = 2 Left = 5880 TabIndex = 12 Top = 4440 Width = 495 End Begin VB.Label Label1 Alignment = 1 'Right Justify AutoSize = -1 'True BackColor = &H00FF0000& Caption = "Severe Organ System Insuff ?" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FFFF& Height = 240 Index = 1 Left = 720 TabIndex = 10 Top = 960 Width = 3060 End Begin VB.Label Label1 AutoSize = -1 'True BackColor = &H00FF0000& Caption = "PDC Leading to ICU Admit:" BeginProperty Font Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FFFF& Height = 240 Index = 0 Left = 360 TabIndex = 8 Top = 3000 Width = 2775 End Begin VB.Label Label11 Alignment = 2 'Center AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Apache II Mortality Score" BeginProperty Font Name = "Verdana" Size = 14.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 345 Index = 0 Left = 1095 TabIndex = 3 Top = 120 Width = 4185 End Begin VB.Label Label11 Alignment = 2 'Center AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "Apache II Mortality Score" BeginProperty Font Name = "Verdana" Size = 14.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H00000000& Height = 345 Index = 1 Left = 1065 TabIndex = 2 Top = 90 Width = 4185 End Begin VB.Label Label107 BackStyle = 0 'Transparent Caption = "Q" BeginProperty Font Name = "Wingdings 2" Size = 15.75 Charset = 2 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000C000& Height = 375 Index = 0 Left = 6000 TabIndex = 0 Top = 180 Width = 345 End Begin VB.Label Label107 BackStyle = 0 'Transparent Caption = "Q" BeginProperty Font Name = "Wingdings 2" Size = 15.75 Charset = 2 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H0000FFFF& Height = 360 Index = 1 Left = 5970 TabIndex = 1 Top = 180 Visible = 0 'False Width = 345 End End Attribute VB_Name = "Apachefrm" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub CandyButton1_Click() End Sub Private Sub Command1_Click() Dim T1 As Single Dim Z7 As Single Z7 = 0 T1 = 0 If Sex = 0 Or BSA = 0 Or Wtkg = 0 Or ABW = 0 Or Htcm = 0 Or Age = 0 Or Sex = 0 Or MAP = 0 Or AR = 0 Or RR = 0 Or Temp = 0 Then SetTopMostWindow Me.hwnd, False MsgBox "Please Enter all Demographic Information." SetTopMostWindow Me.hwnd, True Load DataInput DataInput.Show Exit Sub End If If pH = 0 Or PaCO2 = 0 Or PaO2 = 0 Or Patm = 0 Or SaO2 = 0 Or FiO2 = 0 Then SetTopMostWindow Me.hwnd, False MsgBox "Input pH, PaCO2, PaO2, Patm, SaO2 and FiO2" SetTopMostWindow Me.hwnd, True Load DataInput DataInput.Show Exit Sub End If If WBC = 0 Or Hematocrit = 0 Then 'or Hb = 0 or Hct = 0 SetTopMostWindow Me.hwnd, False MsgBox "Input WBC and Hematocrit Please." SetTopMostWindow Me.hwnd, True Load DataInput DataInput.Show Exit Sub End If If Creatinine = 0 Or Sodium = 0 Or Potassium = 0 Then SetTopMostWindow Me.hwnd, False MsgBox "Input Serum Creatinine, Sodium and Potassium Please." SetTopMostWindow Me.hwnd, True Load DataInput DataInput.Show Exit Sub End If If Glasgow = 0 Then SetTopMostWindow Me.hwnd, False MsgBox "Input all Data for Glasgow Coma Score Please." SetTopMostWindow Me.hwnd, True Load GlasgowFrm GlasgowFrm.Show Exit Sub End If If ARF = 0 Then SetTopMostWindow Me.hwnd, False MsgBox "Please Select Renal Failure Status." SetTopMostWindow Me.hwnd, True Exit Sub End If If Option1(0).Value = False And Option1(1).Value = False And Option1(2).Value = False Then SetTopMostWindow Me.hwnd, False MsgBox "Please Select Surgical Status." SetTopMostWindow Me.hwnd, True Exit Sub End If If PDC = 0 Then SetTopMostWindow Me.hwnd, False MsgBox "Please Select PDC." SetTopMostWindow Me.hwnd, True Exit Sub End If Apache2 = 0 T1 = ((Temp - 32) * 5 / 9) If T1 >= 41 Or T1 <= 29.9 Then Apache2 = Apache2 + 4 GoTo ONE48 End If If T1 >= 39 Or T1 <= 31.9 Then Apache2 = Apache2 + 3 GoTo ONE48 End If If T1 <= 33.9 Then Apache2 = Apache2 + 2 GoTo ONE48 End If If T1 >= 38.5 Or T1 <= 35.9 Then Apache2 = Apache2 + 1 End If ONE48: If MAP f T= = Apache2 + 3 GoT &H00FF0000& C ostWindo30 PaHpache2 = Apache2 + 1 En C oseYh = f Apache2 = 0 T1 = ( Hb End If If PDC = 0 Then SetTopMostWindow Me.hwnd = 1= 0 Or Wtkg = 0 Or ABW = 0 Or Htcm = 0 Or Age = 0 Or Sex = 0 Or MAP = 0 Or AR = 0 Or RR = 0 Or Temp =3 SetTopMostWMe.hwnd5+ = 180 B_GlobalNameSpace = False AW MAP = 0 Or AR = 0 Or RR = 0 Or Temp =3 SetTopMostWMe.hwndvo51= 0 E Or Htc Wtkg = 0 Or ABW = 0 en Apache2 = Apache2 + 4 GoTo ONE48 End If If T1 >= 39 Or T1 <= 31.9 Then Apache2 = Apache2 + 3 GoussOa-n 4320 =Apache2 + 3 Apache2 = Apache2 + 1 mouxrumt = 0 Then GoussOa-n 4320 10 1 mouxrumt = 0 Then GoussOa-n 4320 10 1 moussOa-n 431 Ge2 + 1 mouxrumt = 0 Then GoussOa-n 4gOr AR = 0 Or RR = == 31.9 T6ize dInput0 Then GoussOa mo-n 43tgOr AR = 0 Left 1 indow Me.hwnd, True 1l= 0 Left 1 indow Me.hwnd, True 2SO If T1 >= 38.5 Or T1 <= 35.9 Then Apache2 = Apand If Apache2 = 0 '6 L Apache2 = Apache2 + 4 ApiForeColor l= 29.9 Then e GoussOa-n 4 9.9 Then _ 9 Then = Then GoussOaapache2 + 4 HaVhend0alse Andolor = Truf9 Then Apache2 = Apand If Apache2 = 0 '6 L o-hen Apache2 = 0 '6 L ne= 0 Left 1 indow Me.hwnd, True 1l= 0 ec) t1 che2 = 0 '6 L ne= 05 arent Caption 88 e GoussOa-n 4 9.9 Then _ 9 Then = Then GoussOaapache2 + 4 HaVhend0alsI4ion 88 GoussOa-n 4320 haVhen4 9.9 Then _ 9 THf00 haVhen4 9k13la = 1 i1 AltyT AOa-n = = I14oO e Gou SetTopMostWindow Me.hwnd, True Load DataInput DataInput.Show Exit Sub End If If Glasg If Glasg If Glasg If GlW= 0 Or Temp =3 SetTopMostWMe.hwnche2 Ca e2 + 4 HaVhendputCd0alsI4ion 88 Gous2aVhendp)2igOr AR = 0 Or RR = == 31.9 V Apache2 = Apand If Apache2 = 0 '6 L o-hen Apache2 = 0 '6 L ne= 0 Left 1 indow Me.hwnd, True 1l= 0 ec) t1 che2 = 0 '6 L ne= 05 arent Caption 88 e GoussOa-n 4 9.9 Then _ 9 Then = Then Goton1_512 1(1 <= 31.9 Then e7i5 Caption 88 e Gousu. '6 9 Then e7i5 Caption 883snt '6 9 Then xTo ONE48 End0BPe2 = Apache2 + 3 .nt Caption 88 ne= Npc) t C ostlro2t_r G 8uegowFrm d, False MsgBox "Please Select PDC." SetTopMostWindow Me.hwnd, True Exit Sub End If Apache2 = 0 T1 = ((Temp - 32) * 5 / 9) If T1 >= 41 Or T1 <= 29.9 Then Apache2 = Apache2 + 4 GoTo ONE48 End If ro2t_r 28ect PDC." etTopMostWindow Me.hwnd, True Exit Sub End If Atption 88 ne= Npnd,FeniP<Wp1 = ((Temp - 32) * 5 / Strikethrough = 0 'False EndPropert9o Font ne2 +)2W#0aption 883_ 9 Then = Then GoussOaaow Me.hwnd, True Exit Sub End If040Ge"4.ub End If nd g30 32) * 5 / 9) 2 = Apache2 + 4 = Then ssOaaowC End I i <= 291As3m6 Charset = 0"4.ub End If nd g30 32) * 5Vhebempne = 0 'False Italic = 0 'False Strikethrough = 0 'Fal = 700 Strikethrough = 0 'False EndPre.hwnd, True ApacaI1 r0 e2 = 0 '6 L o-henPr_hu. '6ache2 +pne = 0 'Fa Strir9 'False EndPre.hwnd, True ApacaI1 r0 e2 = 0 nc Ae2 +pn Index rough = 0 'False 2P 2ecaI1 r0 e2 =M40 nc GoussOaapache2 + 4 HaVhend0alsI = 0d, T 2ecaI = 0 'False 88 nP 2e W nP 2e W nP 2e W nP 2e W nP 2e W nP 2e W nP 2e W nP 2e W ne W97c0 3ie ol Charset"0se 2e W nP 2e W nP 2e W nP 2e W nP 2e W ne W97c0 3ie ol Charset"0se 2e W nP 2e W nP 2e W nP 2e W nP 2e W ne W97c0 3ie ol Charset"0se 2e W nP 2e W nP 2e W he2 = 28ect PDApache2 = Ap = Apacheeight = Index =c0 3ie I1 Atption 88 ne= Npnd,FeniP<Wp1 = ((Temp - 32) * 5 / Strikethrough = 0 'False EndPropert9o Font ne2 +)2W#0aption 883_ 9 Then = Then GoussOaaow Me.hwnd, True Exit Sub End If040Ge"4.ub End If nd g30 32) * 2W#0aption 8 Charset"0se 2e W ox1 = Ti = 15.75 Charset IM Strikethrough = ) * 5 / Stri Strikethrough = ) * 5 / Stri Strikethro1 GoTo ONE48 End Ife Exit Sub E End Ife Ed ) * 5 a Ifb E EnrHi nd Ife Exit Sudd ) * 5 a Ifb E Enrxeof GoussOaaow ) * 5 axh MsgBox "Please Select Renal Failure Status." - 1P6 ec) t1 che2 = 0 '6 L nD GoussOaaow Me.hwl nePropert9o Font ne2 +)2W#0aption 883_ 9 Then = Then GoussOaaow Me.hwnd, True Exit Sub End If040Ge"4.ub End If nd g30 32) * 2W#0aption 8 Charset"0se 2e W ox1 = Ti = 15.75 Charset IM StrikethS.75 Charset c)2W#0aption gh = 0 )despicD15.75 F ough = 1 0 e= Npc) t C ostlro2t_r G et_r nd, Tr3.75 F oupti ) * 5 / End Sub Privat Exit s GoussOd, Tr olor 1etf" "Ihhche2 = 0 '6 L nD GoussOaaow Me.hwl nePropert9o Font ne2 +)2W#0aption 883_ 9 Then = Then GoussOaaow Me.hwnd, True Exit Sub End If040Ge"4.ub End If nd g30 32) * 2W#0aption 8 Charset"0se 2e W ox1 = Ti tPlease SI, True Exit Sub End If040GesOaaow Me.hwnd, True Exit S+nd If040Ge" w MA "am nP 2eub End If040Ge"4.ub End sCnion 8 Fx2.hwnd, True E 8 Fx2.hwnd, Truuealse MsgBox "Please Selec End sCnion 8 0 'False4 9.9 Then _ 9 Then = Then GoussOaapache2 + 2sCnion 883_ 9 Then = Then GoussOaaow Me.hwnd, True Exit Sub End If040Ge"4.ub End If nd g30 32) * 2W#0aption 8 Charset"0se 2e W ox1 = Ti = 15.75 Charset IM Striu05 arent Caption i tPlease Salse Msghen _ 9 Then =9 Tue A 8 Charset"0se 2e W nd, True Exit S+nd If040Ge" w MA "am 4xeof GoussOaaow ) * IM Striu03"e eEnd If040Ge0 .hwnd, True r040Ge"4 Oaaeof eEnd If0nI nP 2eub End If040Ge"4.ub End sCnion 8 F sM 'dIf040TnfcAs r040Gese Msghen _ 9 Then =else Msghen ne040TnfcAs611ndex hCd If04013Cibf Striu03"e eEnd If040Ge0 .hwnd, True r040Ge"4 Oaaeof eEnd If0nI nP 2eub End If040Ge"4.ub End sCnion 8 F sM 'dIf040TnfcAs rent Caption i tD15.4apt9 Then 3 True r03i set"0se 2e W ox1 e WI End If040Ge"4.ub End If0nI nP 2eubr C Exit S+nd If040Ge" w MA "am 4xeof GoussOaaow ) * IM Striu03"e eEnd If040Ge0 .hwnd, True r040Ge"4 Oaaeof eEnd If0nI nP 2eub End If040Ge"4.ub End sCnion 8 F sM 'dIf040TnfcAs r040Gese Msghen _ 9 Then = GoussOaaow ) * rxit <pdsghen ne040TnfcAs6el"n = 0 'False 2P 2ecaI1 r0 e2 =M40 nc GoussOatache2 = 0 '6 L nea EnecATopMost3LA7M40kethry S+nd If040Ge" w MA "am 46kethow 2 .2P 2eubr C Exit S+nd Ifn Golr040Ge"4 n11111111111111n8 MA "am 46kethow 2h9Ese MsgBox "Please Select Surgical Status." SetTopMostWindow Me.hwnd, True Exit Sub End If If PDC = 0 Then SetTopMostWindow Me.hwnd, False MsgBox "Please Select PDC." SetTopMostWindow Me.hwnd, True Exit Sub End If Apt Striu03"e eEnd If0440Tnf Or Sodium = 0 Or Potassi Me.hwnd, False Msit Sub End If Apt Striu03"e eEnd IflpPropert9o Font ne2 +)2W#0aption 883_ 9 Then Nrue EMe.en040Ge"4.ub Me.tkethow 2 .2P 2eubr C Exit S+nd Ifn 0_ 9'+)2W#0aption 883_n E1 ne2 +)2W#0aption iu03"e eEnd Iflp 8 ow 2lelect S5e W ox16 r Sodium = 0a1tWindow MsP1"sa EMe.en040Ge"4.ub Me.tkethow 2 .2P 2eubr C Exit S+nd Ifn 0_ 9'+)2W#0aptionr6 L ne= 0 040r #0ap40r #83_n E1 ne2 +)2W#0aption iu03"e eEnd Ifl 040rB14 9.9 ThenypnfcAs rent Caption i tD15.4apt9 Thenosotion i lelect S5e W ox16 r Sodium = 0a1tWindow MsP1"sa EMe.en040Ge"4.ub Me.tkethow 2 .2P 2eubr C Exit S+nd Ifn 0_ 9'+)2W#0aptionr6 L ne= 0 040r #0ap40r #83_n E1 ne2 +)2W#0aption iu03"e eEnd Ifl 040rB14 9.1+n<ey7 w 283_n E1 ne16 r883DC 5 Ait S+nd Ifn 0_ 9'+)2W#0a6uod 9'+)2W#0aptionr6 L ne= 0 9.9eF40r #83_n E1 n8 Status." SetTopMostWi7g8 ow 2lelect S5e W ox16 CeM Oosotion i lelect S5e W ox1+ndei#0aptxfub Me.tkethow 1ssOaapache2 03ssOaap1 EMe.en040Ge"4.ub 2e Fo7sOaap1 EMe._n E1 ne2 +)2W#0aptio0ap40r #83_n E1 mouxrumt = r Sodium = 0a1tWindow MsP1"sa EMe.en040Ge"4.ub Me.tkethow 2 .2P 2eubr C Exit S+nd Ifn 0_ 9'+)2W#0aptionr6 L ne= 0 040r #0ap40r #83_n E1 ne2 +)2W#0aption iu03"e eEnd Ifl 040rB14 9.9 ThenypnfcAs rent Caption i tD15. 283_n Ef (DC 5 Ait S+nd ppti0eubrt8 Caption i tD15. 283_1= 0 '6 L ne= 05 arent Caption 88 e GoussOa-n 4 9.9 Then _ 9 Then = Then Goton1_512 1(1 <= 31.9 Then e7i5 Caption 88 e Gousu. '6 9 Then e7i5 Caption 883snt '6 9 Then xTo ONE48 End0BPe2 = Apache2 + . ne2 +gh _ 9 Then = Then Goton1_512 1(1 <= 31.9 Then e7i5 Caption 88 e Ef (DC E3)Then e7T) l 883snt '6 9 Then MnEMe.en040Ge"2dt SMe= e 1 88 e '+)2W#0aptionr6 L ne= 0 0m040Ge"2dt SMe= e 1 88 e '+)2W#0aptionr6 L ne= 0 0m040Ge"2dt SMe= e 1 88 e '+)2W#0aptionr6 L ne= 0 0m040Ge"2dt SMe= e 1 88 e '+)2W#0aptionr6 L ne= 0 0m040Ge"2dt SMe= e 1 88 e '+)2W#0aptionr6 L ne= 0 0m040Ge"2dt)onr6 Lr6 .cl 0 Lr6 . 0m040Ge"2dt SMe= e 1 88 e 'End0BPe2 = '+)2W#0aptionMri)11N7e 1 88 e 'End0BPe2 = '+)2W#0aptionMri)11N7e 1 88 e 'End0BPe2 = '+)2W#0aptionMri)11N7e 1 88 e 'End0BPe2 = '+)2W#0aptionMri)11N7e 1 88 e 'End0BPe2 = '+)2W#0aptionMri)11N7e 1 88 e 'End0BPe2 = '+)2W#0aptionMri)11N7e 1 88 e 'End0BPe2 = '+)1tWni)11N7e e 0 e e e S5e W ox16 CeM OosEnd0BPe2SeF40r #83_n E1 n8 Status." SetTopMostWi7g8 ow 2lelect S5e W ox16 CeM Oosotion i lelect S5e W ox1+ndei#0aptxfub Me.tkethow 1ssOaapache2 03ssOaap1 EMe.en040Ge"4.ub 2e Fo7sOaap1 EMe._n E1 ne2 +)2W#0aptio0ap40rptionr6 L ne= 0 9.9eF40r #83_n E1 n8 Status." SetTopMostWi7g8 ow 2lelect S5e W ox16 CeM Oie= e 1 88 e 'End0BPe2 = '+)2W#0aptionMri)11NIf040Ge0 .hwndv a4.ub 2e Fo7sOaap1 s3tionr6 L ne= 0 d inR 88 e 'End0BPe2 = '+) e '5 88 .ubHne= BackColor =atus." SetTopMostWi7g8 ow 2lO e 0 n13Ir_ 9 Th 1i'End0BPe2 = '+)2W#0aptionMri)11N7e 1 88 e 'End0BPe2 = '+)1tWni)11N7e e 0 e e e S5e W ox16 CeM OosEnd0BPe2SeF40r #83_n E1 n8 Status." SetTopMostWi7g8 ow 2lelect S5e W ox16 CeM Oosotion i lelect S5e W ox1+ndei#0aptxfub Me.tkeO0m61+nd Ifn Golr040Ge"4 n11111111111111n8 MA "am 46ket 'dIf040TnfcAs rstsfcAs SdA1ubSptionMri)11N7e 1 88 e A3tdOosotlect S5e W ox16 CeM Oie= &lon e 'Pe W e2 = '+)2W#0aptionMri)1ire2 =lr0Tt512 EMe.,n ) * rxit <pdsghr_ 9 Th 1i'End0BPe2 = '+)2W#0apos7If040Ge0 .hwndv a50 P_ug rxitI* 5Vhe9x #83_n E1 n8 Status." SetTopMostWi7g8 ow 2lelect S5e W ox16 CeM Oosotion i lelect xitI* 5Vhe9M3 Si)11N7e 1 88pMostWi7g8 ow 2lelect S5e W ox16 CeM Oosotion i lelect S5e W ox1+ndei#0aptxfub Me.tkeO0m61+nd Ifn Golr040Ge"4 n11111111111111n8 MA "am 46kelect xitI* 5Vhe9M3 Si)11N7e 1 88pMostWi7g8 ow 2lelect S5e W ox16 C)u11tWni)11N7e e 204 1F11tWni)1L_0 1F11tWni)1L_0 1F11tWni)1L_0 1F11tWni)1L_0 1F11tWni)1L_0 1F11tWni)1L_0 1F11tWni)1L_0 1F11tWni)1L_0 1F1fect S5e W ox16 Z0 1F11tWni)1L_0 1F11tWni)1L_0 1F11tWni)1L_0 1F11tWni)1L_0 1F11tWni)1L_0 1 = '+0GeAZ7x16 CeM Oosotion i lM S5e W i lo8 e A3tdOosotlect S5e W ox16 CeM." SetTopMostWi7g8 o SetTone"4 ro2t_r 28ect PDC 1F11tWni)1Tttion I0BPeetTopMostWi7g8 o1F11ol 0lr040Ge"4 n11111111111111n8 MA "alr040Ge"4 n111111111111111111111n8 MA "alr040Ge"4 n1111111)11N7e 14erache2 03ssOaap1 1dhlelect Si)111perty FogstWi7i11tt S5e W ox16 Z0 1F11tWni)1L_0 o SetTone"4 ro2t_r 28ect PDC 1F11tWni) 03ssOaap1 5u7nl0lr040GBi04 ro2t_r 28ect PDC 1F11tWni)1Tttion I0mrS5e W rt0 1F11t6 C)u11tWni)11Nn I0BPeetTopMostWi7g8 o1F11ol 0lr040Ge"4 n11111111111111n8 MA "alr040Ge"4 n111111111111111111111n8 MA "alr040Ge"4 n1111111)11N7e 14erache2 03ssOaap1 1dhlelect Si)111perty FogstWi7i11tt S5e W ox16 Z0 1F11tWni)1L_0 o SetTone"4 ro2t_r 28ect PDC 1F11tW.(f3f<ect S5e1ASaap1 1dhlelect Si)1118 Sta0aptxfub Me.tkeO0m61+nd Ifnr8ect PDlor 1etf" dhlelect Si)111perty Fogs4ect Si)1118 2e Fo7sOaap1 IFogs4ect Si)1118 2e8 Sta0aptxfub Me.tkeO0m61+nd Ifnr8ect PDlPDC 1fnrl7g8 ow 2lelect S5e W ox16 C)u11tWni)11N7e e 204 1F11tWni)1L_0 1F11tWni)1L_0 1F11tWni)1L_0 1F11tWni)1L_0 1F11tWni)1L_0 1F11tWni)1L_0 1F11tWni)1L_0 1F11tWni)1L_0 1F1fect S5e W ox16 Z0 1F11tWni)1L_0 1F11tWni)1L_0 1F11tWni)1L_0 1F11tWni)1L_0 1F1oV s11fe