
Sub Command1_Click ()
assess3.Show
End Sub

Sub Form_Load ()
bedit2(0).text = "   -   -    "
bedit2(1).text = "   -   -    "
assess2.Move 0, 0, screen.WIDTH, screen.height
frame3d1.Move 0, 0, assess2.WIDTH, assess2.height
hedit1(0).Move bedit1(0).left, bedit1(0).top, bedit1(0).WIDTH, bedit1(0).height * 1.1
hedit1(1).Move bedit1(1).left, bedit1(1).top, bedit1(1).WIDTH, bedit1(1).height * 1.1
hedit2(0).Move bedit2(0).left, bedit2(0).top, bedit2(0).WIDTH, bedit2(0).height * 1.1
hedit2(1).Move bedit2(1).left, bedit2(1).top, bedit2(1).WIDTH, bedit2(1).height * 1.1
anibutton1(1).Move .1 * anibutton1(1).WIDTH, frame3d1.height - 1.1 * anibutton1(0).height
anibutton2.Move (frame3d1.WIDTH - anibutton2.WIDTH) / 2, frame3d1.height - 1.1 * anibutton2.height
anibutton1(0).Move frame3d1.WIDTH - 1.1 * anibutton1(0).WIDTH, frame3d1.height - 1.1 * anibutton1(1).height
picture3.Scale (1, 1)-(2, 6)
picture3.autoredraw = -1
picture3.currentx = 1.1
picture3.currenty = 1
picture3.Print "P";
picture3.currentx = 1.1
picture3.currenty = 2
picture3.Print "H";
picture3.currentx = 1.1
picture3.currenty = 3
picture3.Print "O";
picture3.currentx = 1.1
picture3.currenty = 4
picture3.Print "N";
picture3.currentx = 1.1
picture3.currenty = 5
picture3.Print "E";

End Sub

Sub AniButton1_Click (Index As Integer)
If smartform(3) Then

        Select Case Index
        Case 1
        assess1.Show
        assess2.Hide
        Case 0
        medhist.Show
        assess2.Hide
        End Select
Else
formcheck "Emergency Notify"
End If

End Sub

Sub AniButton2_Click ()
If smartform(3) Then
menumode assess2
Else
formcheck "Emergency Notify"
End If


End Sub

Sub Label3_Click ()
bigbedit.label1.caption = assess2.label2.caption
bigbedit.bedit1.text = assess2.hedit3.text
bigbedit.bedit1.selstart = Len(hedit3.text)
bigbedit.Show 1
End Sub

Sub AniButton3_Click (Index As Integer)
Select Case Index
Case 0
    Select Case anibutton3(Index).value
    Case 2
    editswap bedit1(0), hedit1(0), 1
    hedit1(0).visible = -1
    bedit1(0).visible = 0
    editswap bedit1(1), hedit1(1), 1
    hedit1(1).visible = -1
    bedit1(1).visible = 0
    editswap bedit2(0), hedit2(0), 1
    hedit2(0).visible = -1
    bedit2(0).visible = 0
    editswap bedit2(1), hedit2(1), 1
    hedit2(1).visible = -1
    bedit2(1).visible = 0
    temprecord.name = bedit1(0).text
    temprecord.relation = bedit1(1).text
    temprecord.home = bedit2(0).text
    temprecord.work = bedit2(1).text
    Case 1
    editswap bedit1(0), hedit1(0), 2
    hedit1(0).visible = 0
    bedit1(0).visible = -1
    editswap bedit1(1), hedit1(1), 2
    hedit1(1).visible = 0
    bedit1(1).visible = -1
    editswap bedit2(0), hedit2(0), 2
    hedit2(0).visible = 0
    bedit2(0).visible = -1
    editswap bedit2(1), hedit2(0), 2
    hedit2(1).visible = 0
    bedit2(1).visible = -1
    End Select
Case 1   'LOCK FOR DIAGNOSIS FIELD
    Select Case anibutton3(Index).value
    Case 2
    hedit3.enabled = 0
    temprecord.hed1 = hedit3.text
    Case 1
    hedit3.enabled = -1
    hedit3.SetFocus
    hedit3.selstart = Len(hedit3.text)
    
    End Select
End Select


End Sub

Sub BEdit2_Update (Index As Integer)
If bedit2(Index).selstart = 11 Then
If Mid$(bedit2(Index).text, 4, 1) <> "-" Or Mid$(bedit2(Index).text, 8, 1) <> "-" Then
    For n = 1 To Len(bedit2(Index).text)
        If n = 4 Or n = 8 Then
            a$ = a$ + "-"
            'a$ = a$ + Mid$(bedit2(Index).text, n, 1)
        Else
            a$ = a$ + Mid$(bedit2(Index).text, n, 1)
        End If
    Next n
    bedit2(Index).text = a$
End If
bedit2(Index).selstart = 12
End If

End Sub

Sub HEdit3_GotFocus ()
'hedit3.delayrecog = -1
End Sub

