
Sub AniButton1_Click (index As Integer)
If smartform(4) Then

Select Case index
Case 1
assess2.Show
medhist.Hide
Case 0
assess3.Show
medhist.Hide
End Select

Else
formcheck "Medical History"
End If
End Sub

Sub AniButton2_Click ()
If smartform(4) Then
menumode medhist
Else
formcheck "Medical History"
End If

End Sub

Sub Form_Load ()
medhist.Move 0, 0, screen.WIDTH, screen.height
anibutton1(1).Move .1 * anibutton1(1).WIDTH, medhist.height - 1.1 * anibutton1(0).height
anibutton2.Move (medhist.WIDTH - anibutton2.WIDTH) / 2, medhist.height - 1.1 * anibutton2.height
anibutton1(0).Move medhist.WIDTH - 1.1 * anibutton1(0).WIDTH, medhist.height - 1.1 * anibutton1(1).height
medhist.Scale (0, 0)-(8, 12)
LABEL1(0).Move .25, 1.5
LABEL1(1).Move 2, 1.5
LABEL1(2).Move 4, 1.5
LABEL1(3).Move 5.75, 1.5
For N = 1 To 8
Check3D1(N - 1).Move LABEL1(0).LEFT + LABEL1(0).WIDTH / 2.3, 2.5 + (N - 1)
Next N
For N = 1 To 8
Check3D2(N - 1).Move LABEL1(1).LEFT, 2.5 + (N - 1)
Next N
For N = 1 To 8
CHECK3D3(N - 1).Move LABEL1(2).LEFT + LABEL1(2).WIDTH / 2.3, 2.5 + (N - 1)
Next N
For N = 1 To 8
Check3D4(N - 1).Move LABEL1(3).LEFT, 2.5 + (N - 1)
Next N


End Sub

Sub Check3D2_Click (index As Integer, value As Integer)
If Check3D2(index).value = -1 Then
Check3D2(index).forecolor = &H0&
Else
Check3D2(index).forecolor = &HFF0000
End If

End Sub

Sub Check3D4_Click (index As Integer, value As Integer)
If Check3D4(index).value = -1 Then
Check3D4(index).forecolor = &H0&
Else
Check3D4(index).forecolor = &HFF0000
End If

End Sub

