
Sub Form_Load ()
summary.Move 0, 0, screen.width, screen.height

anibutton1(1).Move .1 * anibutton1(1).width, summary.scaleheight - 1.1 * anibutton1(1).height
anibutton2.Move (summary.scalewidth - anibutton2.width) / 2, summary.scaleheight - 1.1 * anibutton2.height
anibutton3(0).Move (summary.scalewidth - anibutton2.width) / 2 + 1.3 * anibutton3(0).width, summary.scaleheight - 1.1 * anibutton2.height
anibutton1(0).Move summary.scalewidth - 1.1 * anibutton1(0).width, summary.scaleheight - 1.1 * anibutton1(0).height

label1.Move 0, 0, summary.scalewidth \ 2, summary.scaleheight \ 15
list1.Move 0, label1.height, summary.scalewidth \ 2, summary.scaleheight * 2 / 5
hedit1.Move 0, label1.height + list1.height, summary.scalewidth \ 2.1, summary.scaleheight * 2.3 / 5


label2.Move summary.scalewidth \ 2, 0, summary.scalewidth \ 2, summary.scaleheight \ 15
list2.Move summary.scalewidth \ 2, label2.height, summary.scalewidth \ 2.1, summary.scaleheight * 2 / 5
hedit2.Move summary.scalewidth \ 2, label2.height + list2.height, summary.scalewidth \ 2.1, summary.scaleheight * 2.3 / 5
' set up area for bitblt

picture1.Move 0, label1.height + list1.height, summary.scalewidth * 1, summary.scaleheight * 2.3 / 5
'**********************************************
If restored Then
hedit1.visible = 0
hedit2.visible = 0
picture1.visible = -1
anibutton3(0).value = 2
End If
list1.AddItem "Recommendations:"
list1.AddItem ""
list1.AddItem "Critical Care"
list1.AddItem "Intensive Care"
list1.AddItem "Observation"
list1.AddItem "Involuntary Commitment"
list1.AddItem "Shared Room"
list1.AddItem "Sexual Therapy"
list1.AddItem "Voluntary Commitment"
list1.AddItem "Therapeutic Touch"
list1.AddItem "Out-Patient Nursing"
list1.AddItem "Therapeutic Touch"
list1.AddItem "Cleared For Discharge"
list1.AddItem "Hold For The Authorities"
list1.AddItem "Medical Miracle"
list1.AddItem "Private Room"
list1.AddItem "Physical Therapy"
list1.AddItem "Occupational Therapy"
list1.AddItem "Extended Stay"

End Sub

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

        Select Case Index
        Case 1
        mdiform.mdichild1(3).Move 0, 0, mdiform.scalewidth, mdiform.scaleheight
        mdiform.mdichild1(2).Move 0, 360, mdiform.scalewidth, mdiform.scaleheight
        mdiform.mdichild1(1).Move 0, 720, mdiform.scalewidth, mdiform.scaleheight
        mdiform.mdichild1(3).active = -1
        mdiform.mdichild1(2).active = -1
        mdiform.mdichild1(1).active = -1

        mdiform.Show
        summary.Hide
        Case 0
        admit.picture1.Cls
        admit.picture1.autoredraw = -1
        admit.picture1.Scale (0, 0)-(3, 4)
        admit.picture1.currentx = .8
        admit.picture1.currenty = 1.2
        admit.picture1.Print "CLICK"
        admit.picture1.currentx = 1
        admit.picture1.currenty = 2
        admit.picture1.Print " TO"
        admit.picture1.currentx = .6
        admit.picture1.currenty = 2.8
        admit.picture1.Print "RETURN"
        admit.Show
        summary.Hide
        End Select
Else
formcheck "Summary"
End If

End Sub

Sub AniButton2_Click ()
If smartform(7) Then

menumode summary
Else
formcheck "Summary"
End If

End Sub

Sub AniButton3_Click (Index As Integer)
Select Case anibutton3(0).value
Case 2
    screen.mousepointer = 11
    picture1.autoredraw = -1
    bounce summary, summary.picture1
    picture1.picture = picture1.image
    picture1.visible = -1
    
    picture1.autoredraw = 0
    screen.mousepointer = 0
hedit1.visible = 0
hedit2.visible = 0
Case 1

hedit1.visible = -1
hedit2.visible = -1
picture1.visible = 0
hedit1.SetFocus
hedit1.selstart = 0
hedit2.selstart = 0
'hedit1.sellength = Len(hedit1.text)
'hedit2.sellength = Len(hedit2.text)
hedit1.Refresh
hedit2.Refresh

End Select
End Sub

Sub List1_Click ()
list2.AddItem list1.list(list1.listindex)
End Sub

Sub List2_Click ()
list2.RemoveItem list2.listindex
End Sub

Sub HEdit1_GotFocus ()
'hedit1.Refresh
End Sub

