
Sub Form_Load ()
SCREEN.MOUSEPOINTER = 11
' hard code for testing
patientID(1) = pid1
patientID(2) = pid2
patientID(3) = pid3
'*********************
admit.Move -SCREEN.width - 10, 0, SCREEN.width, SCREEN.height
panel3d1.Move admit.scaleleft, admit.scaletop, admit.scalewidth, admit.scaleheight
panel3d1.caption = MainCompanyCaption$
picture1.Move (admit.scalewidth - picture1.width) / 2, 3 * admit.height / 4 - picture1.height / 2
picture2.Move (admit.scalewidth - picture2.width) / 2, admit.height / 4
            admit.Move 0, 0
            admit.picture1.autoredraw = -1
            admit.picture1.Scale (0, 0)-(3, 4)
            admit.picture1.currentx = .6
            admit.picture1.currenty = 1.2
            admit.picture1.Print "PLEASE"
            admit.picture1.currentx = .7
            admit.picture1.currenty = 1.8
            admit.picture1.Print "WAIT:"
            admit.picture1.currentx = .94
            admit.picture1.currenty = 2.5
            admit.picture1.Print "I'M"
            admit.picture1.currentx = .5
            admit.picture1.currenty = 2.95
            admit.picture1.Print "LOADING"

admit.timer1.interval = 1
admit.timer1.enabled = -1
End Sub

Sub Timer1_Timer ()
Static secondtime As Integer

secondtime = secondtime + 1
    If secondtime = 1 Then
    Load assess2
    Load assess3
    End If
timer1.interval = 10

    If secondtime = 2 Then
    idform.Show
    admit.Hide
    timer1.enabled = 0
    secondtime = 0
    End If

End Sub

Sub Picture1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
picture1.Line (0, 0)-(picture1.scalewidth, picture1.scaleheight), , BF
End Sub

Sub Picture1_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
picture1.Line (0, 0)-(picture1.scalewidth, picture1.scaleheight), , BF
End Sub

Sub Picture1_DblClick ()
picture1.Line (0, 0)-(picture1.scalewidth, picture1.scaleheight), , BF
End Sub

Sub Picture1_Click ()
idform.Show
admit.Hide
End Sub

