Dim drawok, locked As Integer

Sub Picture1_MouseMove (Button As Integer, Shift As Integer, x As Single, y As Single)
If drawok And Not locked Then picture1.Line -(x, y)
End Sub

Sub Picture1_MouseDown (Button As Integer, Shift As Integer, x As Single, y As Single)
picture1.currentx = x
picture1.currenty = y
drawok = -1
End Sub

Sub Picture1_MouseUp (Button As Integer, Shift As Integer, x As Single, y As Single)
drawok = 0
End Sub

Sub Form_Load ()

picture1.forecolor = &H0&
picture1.fontsize = 12

assess3.Move 0, 0, screen.width, screen.height
picture1.Move 0, 0, assess3.scalewidth, assess3.scaleheight
picture2.Move 0, 0, assess3.scalewidth, assess3.scaleheight
picture3.Move 0, 0, assess3.scalewidth, assess3.scaleheight

anibutton1(0).Move picture1.width - anibutton1(0).width * 1.1, picture1.height - anibutton1(0).height * 1.1
anibutton1(1).Move 0, picture1.height - anibutton1(0).height * 1.1
anibutton2.Move (picture1.width - anibutton2.width) / 2, picture1.height - anibutton2.height * 1.3
anibutton3(0).Move (anibutton2.width * 1.3 + anibutton2.left), picture1.height - anibutton2.height * 1.3

assess3.picture1.picture = assess3.picture2.picture
            picture1.autoredraw = -1
            msg$ = "Indicate Location"
            picture1.currentx = (picture1.scalewidth - TextWidth(msg$)) / 2
            picture1.currenty = picture1.scaleheight - 13 * (TextHeight(msg$))
            picture1.Print msg$
            picture1.currentx = (picture1.scalewidth - TextWidth(msg$)) / 2
            picture1.Print "S=Scars"
            picture1.currentx = (picture1.scalewidth - TextWidth(msg$)) / 2
            picture1.Print "B=Bruises"
            picture1.currentx = (picture1.scalewidth - TextWidth(msg$)) / 2
            picture1.Print "R=Rashes"
            picture1.currentx = (picture1.scalewidth - TextWidth(msg$)) / 2
            picture1.autoredraw = 0
            check1.Move picture1.currentx, picture1.currenty
            picture1.autoredraw = 0  '*****
End Sub

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

        Select Case Index
        Case 1
        
        medhist.Show
        assess3.Hide

        Case 0
        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
        assess3.Hide

        End Select
Else
formcheck "Identifying Marks"
End If

End Sub

Sub AniButton2_Click ()
If smartform(5) Then
menumode assess3
Else
formcheck "Identifying Marks"
End If

End Sub

Sub AniButton3_Click (Index As Integer)

Select Case anibutton3(0).value
Case 1
picloc = 0    ' for smartform
locked = 0
msg$ = "      Clear the Drawing?"
x% = MsgBox(msg$, 4, "IDENTIFYING MARKS")
        If x% = 6 Then
            screen.mousepointer = 11
            picture1.picture = picture2.picture
            msg$ = "Indicate Location"
            picture1.currentx = (picture1.scalewidth - TextWidth(msg$)) / 2
            picture1.currenty = picture1.scaleheight - 13 * (TextHeight(msg$))
            picture1.Print msg$
            picture1.currentx = (picture1.scalewidth - TextWidth(msg$)) / 2
            picture1.Print "S=Scars"
            picture1.currentx = (picture1.scalewidth - TextWidth(msg$)) / 2
            picture1.Print "B=Bruises"
            picture1.currentx = (picture1.scalewidth - TextWidth(msg$)) / 2
            picture1.Print "R=Rashes"
            picture1.currentx = (picture1.scalewidth - TextWidth(msg$)) / 2
            '******************************************************
            check1.visible = -1
            screen.mousepointer = 0
           
            
        End If
    Case 2
    picloc = -1     ' for smartform
    locked = -1
    check1.visible = 0
    
    msg$ = "Indicate Location"
    picture1.currentx = (picture1.scalewidth - TextWidth(msg$)) / 2
    picture1.currenty = picture1.scaleheight - 13 * (TextHeight(msg$))
    picture1.Print msg$
    picture1.currentx = (picture1.scalewidth - TextWidth(msg$)) / 2
    picture1.Print "S=Scars"
    picture1.currentx = (picture1.scalewidth - TextWidth(msg$)) / 2
    picture1.Print "B=Bruises"
    picture1.currentx = (picture1.scalewidth - TextWidth(msg$)) / 2
    picture1.Print "R=Rashes"
    y = picture1.currenty
    picture1.currentx = (picture1.scalewidth - TextWidth(msg$)) / 2
    picture1.Line (picture1.currentx, picture1.currenty)-Step(TextWidth("Indicate Location") * 1.1, TextHeight(msg$) * 1.3), QBColor(15), BF
    picture1.currentx = (picture1.scalewidth - TextWidth(msg$)) / 2
    picture1.currenty = y
    picture1.Print LTrim$(check1.caption)
    
    screen.mousepointer = 11
    bounce2 assess3.picture1, assess3.picture3
    screen.mousepointer = 0

    picture1.picture = picture3.image
End Select

End Sub

Sub Check1_Click ()
If check1.value Then
BEditform.label1.tag = " Enter Other Injuries And Marks"
BEditform.command2.tag = " Re-Enter Other Marks"
BEditform.Show 1
End If
End Sub

