CODE
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents uidatelabel As System.Windows.Forms.Label
Friend WithEvents uipatname As System.Windows.Forms.Label
Friend WithEvents uirmlabel As System.Windows.Forms.Label
Friend WithEvents uiphyslabel As System.Windows.Forms.Label
Friend WithEvents uinslabel As System.Windows.Forms.Label
Friend WithEvents uipatnametextbox As System.Windows.Forms.TextBox
Friend WithEvents uiphystextbox As System.Windows.Forms.TextBox
Friend WithEvents uirmtextbox As System.Windows.Forms.TextBox
Friend WithEvents uitworisklabel As System.Windows.Forms.RadioButton
Friend WithEvents Splitter1 As System.Windows.Forms.Splitter
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents uimentallabel As System.Windows.Forms.Label
Friend WithEvents uibathbutton As System.Windows.Forms.RadioButton
Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker
Friend WithEvents uicalcbutton As System.Windows.Forms.Label
Friend WithEvents uiexitbutton As System.Windows.Forms.Label
Friend WithEvents uicurmedslabel As System.Windows.Forms.Label
Friend WithEvents uidiureticheckbox As System.Windows.Forms.CheckBox
Friend WithEvents uianticonvulscheckbox As System.Windows.Forms.CheckBox
Friend WithEvents uipsychocheckbox As System.Windows.Forms.CheckBox
Friend WithEvents uiantidepresscheckbox As System.Windows.Forms.CheckBox
Friend WithEvents uinarccheckbox As System.Windows.Forms.CheckBox
Friend WithEvents uisedbutton As System.Windows.Forms.CheckBox
Friend WithEvents uidiabeticbutton As System.Windows.Forms.CheckBox
Friend WithEvents uiantihyperbutton As System.Windows.Forms.CheckBox
Friend WithEvents uidoblabel As System.Windows.Forms.Label
Friend WithEvents uinslistbox As System.Windows.Forms.ListBox
Friend WithEvents CheckedListBox1 As System.Windows.Forms.CheckedListBox
Friend WithEvents uigaitbalgroupbox As System.Windows.Forms.GroupBox
Friend WithEvents uiactivitygroupbox As System.Windows.Forms.GroupBox
Friend WithEvents uifallhxgroupbox As System.Windows.Forms.GroupBox
Friend WithEvents uiagegroupbox As System.Windows.Forms.GroupBox
Friend WithEvents uimentalgroupbox As System.Windows.Forms.GroupBox
Friend WithEvents uimedgroupbox As System.Windows.Forms.GroupBox
Friend WithEvents uiriskgroupbox As System.Windows.Forms.GroupBox
Friend WithEvents uiappliancegroupbox As System.Windows.Forms.GroupBox
Friend WithEvents uiassistdevicegroupbox As System.Windows.Forms.GroupBox
Friend WithEvents uidobtextbox As System.Windows.Forms.TextBox
Friend WithEvents uitotalriskscorlabel As System.Windows.Forms.Label
Friend WithEvents uitotalscortextbox As System.Windows.Forms.TextBox
Friend WithEvents uicardioradiobutton As System.Windows.Forms.RadioButton
Friend WithEvents uioobradiobutton As System.Windows.Forms.RadioButton
Friend WithEvents uibedchairradiobutton As System.Windows.Forms.RadioButton
Friend WithEvents uiglassesradiobutton As System.Windows.Forms.RadioButton
Friend WithEvents uivisionradiobutton As System.Windows.Forms.RadioButton
Friend WithEvents uiseventyradiobutton As System.Windows.Forms.RadioButton
Friend WithEvents uieightyradiobutton As System.Windows.Forms.RadioButton
Friend WithEvents uiwheelradiobutton As System.Windows.Forms.RadioButton
Friend WithEvents uiwalkerradiobutton As System.Windows.Forms.RadioButton
Friend WithEvents uiprosradiobutton As System.Windows.Forms.RadioButton
Friend WithEvents uiconfusatradiobutton As System.Windows.Forms.RadioButton
Friend WithEvents uiinterradiobutton As System.Windows.Forms.RadioButton
Friend WithEvents uithirradiobutton As System.Windows.Forms.RadioButton
Friend WithEvents uiorthostaticradiobutton As System.Windows.Forms.RadioButton
Friend WithEvents uijerkyradiobutton As System.Windows.Forms.RadioButton
Friend WithEvents uigaitradiobutton As System.Windows.Forms.RadioButton
Friend WithEvents uionemedradiobutton As System.Windows.Forms.RadioButton
Friend WithEvents uitwomedradiobutton As System.Windows.Forms.RadioButton
Friend WithEvents uithreemedradiobutton As System.Windows.Forms.RadioButton
Friend WithEvents uinueroradiobutton As System.Windows.Forms.RadioButton
Friend WithEvents uiconfusdisradiobutton As System.Windows.Forms.RadioButton
Friend WithEvents uiorthoradiobutton As System.Windows.Forms.RadioButton
Friend WithEvents uilastthirradiobutton As System.Windows.Forms.RadioButton
Friend WithEvents uithirtyoneradiobutton As System.Windows.Forms.RadioButton
Friend WithEvents uisixtyoneradiobutton As System.Windows.Forms.RadioButton
Friend WithEvents uiMessageLabel As System.Windows.Forms.Label
Friend WithEvents uiclearbutton As System.Windows.Forms.Label
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.uidatelabel = New System.Windows.Forms.Label
Me.uipatname = New System.Windows.Forms.Label
Me.uirmlabel = New System.Windows.Forms.Label
Me.uiphyslabel = New System.Windows.Forms.Label
Me.uinslabel = New System.Windows.Forms.Label
Me.uiseventyradiobutton = New System.Windows.Forms.RadioButton
Me.uieightyradiobutton = New System.Windows.Forms.RadioButton
Me.uipatnametextbox = New System.Windows.Forms.TextBox
Me.uiphystextbox = New System.Windows.Forms.TextBox
Me.uirmtextbox = New System.Windows.Forms.TextBox
Me.uilastthirradiobutton = New System.Windows.Forms.RadioButton
Me.uithirtyoneradiobutton = New System.Windows.Forms.RadioButton
Me.uisixtyoneradiobutton = New System.Windows.Forms.RadioButton
Me.uicardioradiobutton = New System.Windows.Forms.RadioButton
Me.uiorthoradiobutton = New System.Windows.Forms.RadioButton
Me.uinueroradiobutton = New System.Windows.Forms.RadioButton
Me.uitworisklabel = New System.Windows.Forms.RadioButton
Me.Splitter1 = New System.Windows.Forms.Splitter
Me.PictureBox1 = New System.Windows.Forms.PictureBox
Me.uiwheelradiobutton = New System.Windows.Forms.RadioButton
Me.uiwalkerradiobutton = New System.Windows.Forms.RadioButton
Me.uiprosradiobutton = New System.Windows.Forms.RadioButton
Me.uimentallabel = New System.Windows.Forms.Label
Me.uiconfusatradiobutton = New System.Windows.Forms.RadioButton
Me.uiinterradiobutton = New System.Windows.Forms.RadioButton
Me.uiconfusdisradiobutton = New System.Windows.Forms.RadioButton
Me.uibathbutton = New System.Windows.Forms.RadioButton
Me.uioobradiobutton = New System.Windows.Forms.RadioButton
Me.uibedchairradiobutton = New System.Windows.Forms.RadioButton
Me.uithirradiobutton = New System.Windows.Forms.RadioButton
Me.uiorthostaticradiobutton = New System.Windows.Forms.RadioButton
Me.uijerkyradiobutton = New System.Windows.Forms.RadioButton
Me.uigaitradiobutton = New System.Windows.Forms.RadioButton
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker
Me.uiclearbutton = New System.Windows.Forms.Label
Me.uicalcbutton = New System.Windows.Forms.Label
Me.uiexitbutton = New System.Windows.Forms.Label
Me.uitotalriskscorlabel = New System.Windows.Forms.Label
Me.uicurmedslabel = New System.Windows.Forms.Label
Me.uidiureticheckbox = New System.Windows.Forms.CheckBox
Me.uipsychocheckbox = New System.Windows.Forms.CheckBox
Me.uiantidepresscheckbox = New System.Windows.Forms.CheckBox
Me.uianticonvulscheckbox = New System.Windows.Forms.CheckBox
Me.uinarccheckbox = New System.Windows.Forms.CheckBox
Me.uisedbutton = New System.Windows.Forms.CheckBox
Me.uidiabeticbutton = New System.Windows.Forms.CheckBox
Me.uiantihyperbutton = New System.Windows.Forms.CheckBox
Me.uidoblabel = New System.Windows.Forms.Label
Me.uinslistbox = New System.Windows.Forms.ListBox
Me.uigaitbalgroupbox = New System.Windows.Forms.GroupBox
Me.uiactivitygroupbox = New System.Windows.Forms.GroupBox
Me.uiassistdevicegroupbox = New System.Windows.Forms.GroupBox
Me.uiglassesradiobutton = New System.Windows.Forms.RadioButton
Me.uivisionradiobutton = New System.Windows.Forms.RadioButton
Me.CheckedListBox1 = New System.Windows.Forms.CheckedListBox
Me.uiriskgroupbox = New System.Windows.Forms.GroupBox
Me.uifallhxgroupbox = New System.Windows.Forms.GroupBox
Me.uiagegroupbox = New System.Windows.Forms.GroupBox
Me.uimentalgroupbox = New System.Windows.Forms.GroupBox
Me.uionemedradiobutton = New System.Windows.Forms.RadioButton
Me.uitwomedradiobutton = New System.Windows.Forms.RadioButton
Me.uithreemedradiobutton = New System.Windows.Forms.RadioButton
Me.uimedgroupbox = New System.Windows.Forms.GroupBox
Me.uiappliancegroupbox = New System.Windows.Forms.GroupBox
Me.uidobtextbox = New System.Windows.Forms.TextBox
Me.uitotalscortextbox = New System.Windows.Forms.TextBox
Me.uiMessageLabel = New System.Windows.Forms.Label
Me.uigaitbalgroupbox.SuspendLayout()
Me.uiactivitygroupbox.SuspendLayout()
Me.uiassistdevicegroupbox.SuspendLayout()
Me.uiriskgroupbox.SuspendLayout()
Me.uifallhxgroupbox.SuspendLayout()
Me.uiagegroupbox.SuspendLayout()
Me.uimentalgroupbox.SuspendLayout()
Me.uimedgroupbox.SuspendLayout()
Me.uiappliancegroupbox.SuspendLayout()
Me.SuspendLayout()
'
'uidatelabel
'
Me.uidatelabel.AutoSize = True
Me.uidatelabel.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.uidatelabel.Location = New System.Drawing.Point(48, 40)
Me.uidatelabel.Name = "uidatelabel"
Me.uidatelabel.Size = New System.Drawing.Size(32, 19)
Me.uidatelabel.TabIndex = 4
Me.uidatelabel.Text = "&Date"
'
'uipatname
'
Me.uipatname.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.uipatname.Location = New System.Drawing.Point(24, 8)
Me.uipatname.Name = "uipatname"
Me.uipatname.TabIndex = 0
Me.uipatname.Text = "&Patient Name:"
'
'uirmlabel
'
Me.uirmlabel.AutoSize = True
Me.uirmlabel.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.uirmlabel.Location = New System.Drawing.Point(288, 40)
Me.uirmlabel.Name = "uirmlabel"
Me.uirmlabel.Size = New System.Drawing.Size(29, 19)
Me.uirmlabel.TabIndex = 6
Me.uirmlabel.Text = "&Rm:"
Me.uirmlabel.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'uiphyslabel
'
Me.uiphyslabel.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.uiphyslabel.Location = New System.Drawing.Point(216, 8)
Me.uiphyslabel.Name = "uiphyslabel"
Me.uiphyslabel.TabIndex = 2
Me.uiphyslabel.Text = "&Physician:"
Me.uiphyslabel.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'uinslabel
'
Me.uinslabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.uinslabel.Location = New System.Drawing.Point(264, 64)
Me.uinslabel.Name = "uinslabel"
Me.uinslabel.Size = New System.Drawing.Size(56, 23)
Me.uinslabel.TabIndex = 10
Me.uinslabel.Text = "&N/S:"
Me.uinslabel.TextAlign = System.Drawing.ContentAlignment.BottomRight
'
'uiseventyradiobutton
'
Me.uiseventyradiobutton.Checked = True
Me.uiseventyradiobutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.uiseventyradiobutton.Location = New System.Drawing.Point(8, 64)
Me.uiseventyradiobutton.Name = "uiseventyradiobutton"
Me.uiseventyradiobutton.Size = New System.Drawing.Size(64, 24)
Me.uiseventyradiobutton.TabIndex = 1
Me.uiseventyradiobutton.TabStop = True
Me.uiseventyradiobutton.Text = "70-79"
'
'uieightyradiobutton
'
Me.uieightyradiobutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.uieightyradiobutton.Location = New System.Drawing.Point(8, 112)
Me.uieightyradiobutton.Name = "uieightyradiobutton"
Me.uieightyradiobutton.Size = New System.Drawing.Size(72, 24)
Me.uieightyradiobutton.TabIndex = 2
Me.uieightyradiobutton.Text = "80+"
'
'uipatnametextbox
'
Me.uipatnametextbox.Location = New System.Drawing.Point(96, 8)
Me.uipatnametextbox.Name = "uipatnametextbox"
Me.uipatnametextbox.Size = New System.Drawing.Size(104, 23)
Me.uipatnametextbox.TabIndex = 1
Me.uipatnametextbox.Text = ""
'
'uiphystextbox
'
Me.uiphystextbox.Location = New System.Drawing.Point(328, 8)
Me.uiphystextbox.Name = "uiphystextbox"
Me.uiphystextbox.Size = New System.Drawing.Size(80, 23)
Me.uiphystextbox.TabIndex = 3
Me.uiphystextbox.Text = ""
'
'uirmtextbox
'
Me.uirmtextbox.Location = New System.Drawing.Point(328, 40)
Me.uirmtextbox.Name = "uirmtextbox"
Me.uirmtextbox.Size = New System.Drawing.Size(80, 23)
Me.uirmtextbox.TabIndex = 7
Me.uirmtextbox.Text = ""
'
'uilastthirradiobutton
'
Me.uilastthirradiobutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.uilastthirradiobutton.Location = New System.Drawing.Point(16, 104)
Me.uilastthirradiobutton.Name = "uilastthirradiobutton"
Me.uilastthirradiobutton.TabIndex = 2
Me.uilastthirradiobutton.Text = "Last thirty days"
'
'uithirtyoneradiobutton
'
Me.uithirtyoneradiobutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.uithirtyoneradiobutton.Location = New System.Drawing.Point(16, 56)
Me.uithirtyoneradiobutton.Name = "uithirtyoneradiobutton"
Me.uithirtyoneradiobutton.Size = New System.Drawing.Size(88, 24)
Me.uithirtyoneradiobutton.TabIndex = 1
Me.uithirtyoneradiobutton.Text = "thirty one-sixty days"
'
'uisixtyoneradiobutton
'
Me.uisixtyoneradiobutton.Checked = True
Me.uisixtyoneradiobutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.uisixtyoneradiobutton.Location = New System.Drawing.Point(16, 24)
Me.uisixtyoneradiobutton.Name = "uisixtyoneradiobutton"
Me.uisixtyoneradiobutton.TabIndex = 0
Me.uisixtyoneradiobutton.TabStop = True
Me.uisixtyoneradiobutton.Text = "sixty one-ninety days"
'
'uicardioradiobutton
'
Me.uicardioradiobutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.uicardioradiobutton.Location = New System.Drawing.Point(24, 16)
Me.uicardioradiobutton.Name = "uicardioradiobutton"
Me.uicardioradiobutton.TabIndex = 0
Me.uicardioradiobutton.Text = "Cardiovascular"
'
'uiorthoradiobutton
'
Me.uiorthoradiobutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.uiorthoradiobutton.Location = New System.Drawing.Point(24, 48)
Me.uiorthoradiobutton.Name = "uiorthoradiobutton"
Me.uiorthoradiobutton.TabIndex = 1
Me.uiorthoradiobutton.Text = "Orthopedic"
'
'uinueroradiobutton
'
Me.uinueroradiobutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.uinueroradiobutton.Location = New System.Drawing.Point(24, 80)
Me.uinueroradiobutton.Name = "uinueroradiobutton"
Me.uinueroradiobutton.TabIndex = 2
Me.uinueroradiobutton.Text = "Nueromuscular/Function"
'
'uitworisklabel
'
Me.uitworisklabel.Checked = True
Me.uitworisklabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.uitworisklabel.Location = New System.Drawing.Point(24, 112)
Me.uitworisklabel.Name = "uitworisklabel"
Me.uitworisklabel.Size = New System.Drawing.Size(112, 32)
Me.uitworisklabel.TabIndex = 3
Me.uitworisklabel.TabStop = True
Me.uitworisklabel.Text = "2 or more above risk factors"
'
'Splitter1
'
Me.Splitter1.Location = New System.Drawing.Point(0, 0)
Me.Splitter1.Name = "Splitter1"
Me.Splitter1.Size = New System.Drawing.Size(3, 678)
Me.Splitter1.TabIndex = 37
Me.Splitter1.TabStop = False
'
'PictureBox1
'
Me.PictureBox1.Location = New System.Drawing.Point(0, 272)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(8, 8)
Me.PictureBox1.TabIndex = 38
Me.PictureBox1.TabStop = False
'
'uiwheelradiobutton
'
Me.uiwheelradiobutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.uiwheelradiobutton.Location = New System.Drawing.Point(8, 32)
Me.uiwheelradiobutton.Name = "uiwheelradiobutton"
Me.uiwheelradiobutton.Size = New System.Drawing.Size(104, 32)
Me.uiwheelradiobutton.TabIndex = 0
Me.uiwheelradiobutton.Text = "Wheelchair/Crutches"
'
'uiwalkerradiobutton
'
Me.uiwalkerradiobutton.Checked = True
Me.uiwalkerradiobutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.uiwalkerradiobutton.Location = New System.Drawing.Point(8, 128)
Me.uiwalkerradiobutton.Name = "uiwalkerradiobutton"
Me.uiwalkerradiobutton.TabIndex = 0
Me.uiwalkerradiobutton.TabStop = True
Me.uiwalkerradiobutton.Text = "Walker"
'
'uiprosradiobutton
'
Me.uiprosradiobutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.uiprosradiobutton.Location = New System.Drawing.Point(8, 88)
Me.uiprosradiobutton.Name = "uiprosradiobutton"
Me.uiprosradiobutton.Size = New System.Drawing.Size(104, 32)
Me.uiprosradiobutton.TabIndex = 2
Me.uiprosradiobutton.Text = "Prosthetic device"
'
'uimentallabel
'
Me.uimentallabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.uimentallabel.Location = New System.Drawing.Point(128, 312)
Me.uimentallabel.Name = "uimentallabel"
Me.uimentallabel.TabIndex = 22
Me.uimentallabel.Text = "Mental Status"
'
'uiconfusatradiobutton
'
Me.uiconfusatradiobutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.uiconfusatradiobutton.Location = New System.Drawing.Point(16, 24)
Me.uiconfusatradiobutton.Name = "uiconfusatradiobutton"
Me.uiconfusatradiobutton.Size = New System.Drawing.Size(120, 32)
Me.uiconfusatradiobutton.TabIndex = 0
Me.uiconfusatradiobutton.Text = "Confused or Disoriented at times"
'
'uiinterradiobutton
'
Me.uiinterradiobutton.Checked = True
Me.uiinterradiobutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.uiinterradiobutton.Location = New System.Drawing.Point(16, 64)
Me.uiinterradiobutton.Name = "uiinterradiobutton"
Me.uiinterradiobutton.Size = New System.Drawing.Size(104, 32)
Me.uiinterradiobutton.TabIndex = 1
Me.uiinterradiobutton.TabStop = True
Me.uiinterradiobutton.Text = "Intermittent Confusion"
'
'uiconfusdisradiobutton
'
Me.uiconfusdisradiobutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.uiconfusdisradiobutton.Location = New System.Drawing.Point(16, 112)
Me.uiconfusdisradiobutton.Name = "uiconfusdisradiobutton"
Me.uiconfusdisradiobutton.Size = New System.Drawing.Size(104, 40)
Me.uiconfusdisradiobutton.TabIndex = 2
Me.uiconfusdisradiobutton.Text = "Confusion and Disorientation"
'
'uibathbutton
'
Me.uibathbutton.Checked = True
Me.uibathbutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.uibathbutton.Location = New System.Drawing.Point(16, 32)
Me.uibathbutton.Name = "uibathbutton"
Me.uibathbutton.Size = New System.Drawing.Size(96, 32)
Me.uibathbutton.TabIndex = 0
Me.uibathbutton.TabStop = True
Me.uibathbutton.Text = "Bathroom Privledges"
'
'uioobradiobutton
'
Me.uioobradiobutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.uioobradiobutton.Location = New System.Drawing.Point(8, 80)
Me.uioobradiobutton.Name = "uioobradiobutton"
Me.uioobradiobutton.Size = New System.Drawing.Size(96, 32)
Me.uioobradiobutton.TabIndex = 1
Me.uioobradiobutton.Text = "Out of bed with assist"
'
'uibedchairradiobutton
'
Me.uibedchairradiobutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.uibedchairradiobutton.Location = New System.Drawing.Point(8, 128)
Me.uibedchairradiobutton.Name = "uibedchairradiobutton"
Me.uibedchairradiobutton.Size = New System.Drawing.Size(104, 32)
Me.uibedchairradiobutton.TabIndex = 2
Me.uibedchairradiobutton.Text = "Confined to bed/Chair"
'
'uithirradiobutton
'
Me.uithirradiobutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.uithirradiobutton.Location = New System.Drawing.Point(8, 24)
Me.uithirradiobutton.Name = "uithirradiobutton"
Me.uithirradiobutton.Size = New System.Drawing.Size(64, 24)
Me.uithirradiobutton.TabIndex = 0
Me.uithirradiobutton.Text = "30-69"
'
'uiorthostaticradiobutton
'
Me.uiorthostaticradiobutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.uiorthostaticradiobutton.Location = New System.Drawing.Point(16, 32)
Me.uiorthostaticradiobutton.Name = "uiorthostaticradiobutton"
Me.uiorthostaticradiobutton.Size = New System.Drawing.Size(104, 32)
Me.uiorthostaticradiobutton.TabIndex = 0
Me.uiorthostaticradiobutton.Text = "Orthostatic Hypotension"
'
'uijerkyradiobutton
'
Me.uijerkyradiobutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.uijerkyradiobutton.Location = New System.Drawing.Point(16, 72)
Me.uijerkyradiobutton.Name = "uijerkyradiobutton"
Me.uijerkyradiobutton.Size = New System.Drawing.Size(104, 32)
Me.uijerkyradiobutton.TabIndex = 1
Me.uijerkyradiobutton.Text = "Spastic/Jerky Balance"
'
'uigaitradiobutton
'
Me.uigaitradiobutton.Checked = True
Me.uigaitradiobutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.uigaitradiobutton.Location = New System.Drawing.Point(16, 112)
Me.uigaitradiobutton.Name = "uigaitradiobutton"
Me.uigaitradiobutton.TabIndex = 2
Me.uigaitradiobutton.TabStop = True
Me.uigaitradiobutton.Text = "Unsteady Gait"
'
'DateTimePicker1
'
Me.DateTimePicker1.AllowDrop = True
Me.DateTimePicker1.CalendarFont = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.DateTimePicker1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.DateTimePicker1.Location = New System.Drawing.Point(80, 40)
Me.DateTimePicker1.Name = "DateTimePicker1"
Me.DateTimePicker1.Size = New System.Drawing.Size(184, 21)
Me.DateTimePicker1.TabIndex = 5
'
'uiclearbutton
'
Me.uiclearbutton.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.uiclearbutton.Location = New System.Drawing.Point(128, 632)
Me.uiclearbutton.Name = "uiclearbutton"
Me.uiclearbutton.TabIndex = 32
Me.uiclearbutton.Text = "&Clear Screen"
Me.uiclearbutton.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'uicalcbutton
'
Me.uicalcbutton.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.uicalcbutton.Location = New System.Drawing.Point(248, 632)
Me.uicalcbutton.Name = "uicalcbutton"
Me.uicalcbutton.TabIndex = 30
Me.uicalcbutton.Text = "&Calculate"
Me.uicalcbutton.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'uiexitbutton
'
Me.uiexitbutton.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.uiexitbutton.Location = New System.Drawing.Point(360, 632)
Me.uiexitbutton.Name = "uiexitbutton"
Me.uiexitbutton.Size = New System.Drawing.Size(80, 23)
Me.uiexitbutton.TabIndex = 33
Me.uiexitbutton.Text = "&Exit"
Me.uiexitbutton.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'uitotalriskscorlabel
'
Me.uitotalriskscorlabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.uitotalriskscorlabel.Location = New System.Drawing.Point(344, 568)
Me.uitotalriskscorlabel.Name = "uitotalriskscorlabel"
Me.uitotalriskscorlabel.Size = New System.Drawing.Size(80, 24)
Me.uitotalriskscorlabel.TabIndex = 31
Me.uitotalriskscorlabel.Text = " & Total Risk Score"
Me.uitotalriskscorlabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'uicurmedslabel
'
Me.uicurmedslabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.uicurmedslabel.Location = New System.Drawing.Point(224, 488)
Me.uicurmedslabel.Name = "uicurmedslabel"
Me.uicurmedslabel.Size = New System.Drawing.Size(100, 24)
Me.uicurmedslabel.TabIndex = 21
Me.uicurmedslabel.Text = "Check Current Meds"
'
'uidiureticheckbox
'
Me.uidiureticheckbox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.uidiureticheckbox.Location = New System.Drawing.Point(136, 552)
Me.uidiureticheckbox.Name = "uidiureticheckbox"
Me.uidiureticheckbox.TabIndex = 23
Me.uidiureticheckbox.Text = "Diuretics"
'
'uipsychocheckbox
'
Me.uipsychocheckbox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.uipsychocheckbox.Location = New System.Drawing.Point(248, 520)
Me.uipsychocheckbox.Name = "uipsychocheckbox"
Me.uipsychocheckbox.Size = New System.Drawing.Size(104, 16)
Me.uipsychocheckbox.TabIndex = 25
Me.uipsychocheckbox.Text = "Psychotropics"
'
'uiantidepresscheckbox
'
Me.uiantidepresscheckbox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.uiantidepresscheckbox.Location = New System.Drawing.Point(248, 552)
Me.uiantidepresscheckbox.Name = "uiantidepresscheckbox"
Me.uiantidepresscheckbox.TabIndex = 26
Me.uiantidepresscheckbox.Text = "Antidepressants"
'
'uianticonvulscheckbox
'
Me.uianticonvulscheckbox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.uianticonvulscheckbox.Location = New System.Drawing.Point(136, 584)
Me.uianticonvulscheckbox.Name = "uianticonvulscheckbox"
Me.uianticonvulscheckbox.TabIndex = 24
Me.uianticonvulscheckbox.Text = "Anticonvulsants"
'
'uinarccheckbox
'
Me.uinarccheckbox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.uinarccheckbox.Location = New System.Drawing.Point(376, 504)
Me.uinarccheckbox.Name = "uinarccheckbox"
Me.uinarccheckbox.TabIndex = 28
Me.uinarccheckbox.Text = "Narcotics"
'
'uisedbutton
'
Me.uisedbutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.uisedbutton.Location = New System.Drawing.Point(376, 544)
Me.uisedbutton.Name = "uisedbutton"
Me.uisedbutton.TabIndex = 29
Me.uisedbutton.Text = "Sedative"
'
'uidiabeticbutton
'
Me.uidiabeticbutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.uidiabeticbutton.Location = New System.Drawing.Point(248, 584)
Me.uidiabeticbutton.Name = "uidiabeticbutton"
Me.uidiabeticbutton.TabIndex = 27
Me.uidiabeticbutton.Text = "Antidiabetics"
'
'uiantihyperbutton
'
Me.uiantihyperbutton.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.uiantihyperbutton.Location = New System.Drawing.Point(136, 512)
Me.uiantihyperbutton.Name = "uiantihyperbutton"
Me.uiantihyperbutton.Size = New System.Drawing.Size(104, 32)
Me.uiantihyperbutton.TabIndex = 22
Me.uiantihyperbutton.Text = "Anti-hypertensive"
'
'uidoblabel
'
Me.uidoblabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.uidoblabel.Location = New System.Drawing.Point(40, 72)
Me.uidoblabel.Name = "uidoblabel"
Me.uidoblabel.Size = New System.Drawing.Size(32, 23)
Me.uidoblabel.TabIndex = 8
Me.uidoblabel.Text = "&DOB"
'
'uinslistbox
'
Me.uinslistbox.AllowDrop = True
Me.uinslistbox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.uinslistbox.Items.AddRange(New Object() {"1 South", "2 south", "3 south", "4 south", "5 South"})
Me.uinslistbox.Location = New System.Drawing.Point(328, 72)
Me.uinslistbox.Name = "uinslistbox"
Me.uinslistbox.Size = New System.Drawing.Size(80, 30)
Me.uinslistbox.TabIndex = 11
'
'uigaitbalgroupbox
'
Me.uigaitbalgroupbox.Controls.Add(Me.uiorthostaticradiobutton)
Me.uigaitbalgroupbox.Controls.Add(Me.uijerkyradiobutton)
Me.uigaitbalgroupbox.Controls.Add(Me.uigaitradiobutton)
Me.uigaitbalgroupbox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.uigaitbalgroupbox.Location = New System.Drawing.Point(352, 304)
Me.uigaitbalgroupbox.Name = "uigaitbalgroupbox"
Me.uigaitbalgroupbox.Size = New System.Drawing.Size(128, 176)
Me.uigaitbalgroupbox.TabIndex = 19
Me.uigaitbalgroupbox.TabStop = False
Me.uigaitbalgroupbox.Text = "Gait Balance"
'
'uiactivitygroupbox
'
Me.uiactivitygroupbox.Controls.Add(Me.uibathbutton)
Me.uiactivitygroupbox.Controls.Add(Me.uioobradiobutton)
Me.uiactivitygroupbox.Controls
This post has been edited by jayman9: 3 Dec, 2006 - 09:54 AM