Dim newload As Integer

Sub Command2_Click ()
Bedit1.text = ""
label1.caption = command2.tag
End Sub

Sub Command1_Click ()

Select Case label1.tag
Case " Enter Location Prior To Admission"
    If Bedit1.text = "" Then
    assess1.option3d4(5).caption = "OTHER"
    Else
    assess1.option3d4(5).caption = UCase$(Bedit1.text)
    End If
    Unload BEditform
Case " Enter Other Injuries And Marks"
    If Bedit1.text = "" Then
    assess3.Check1.caption = "  O=Other"
    Else
    assess3.Check1.caption = UCase$(Mid$(Bedit1.text, 1, 1)) + "=" + UCase$(Mid$(Bedit1.text, 1, 1)) + LCase$(Mid$(Bedit1.text, 2))

    End If
    Unload BEditform
End Select

End Sub

Sub Command3_Click ()
Unload BEditform
End Sub

Sub Form_Load ()
newload = -1
BEditform.Move (screen.width - BEditform.width) / 2, (screen.height - BEditform.height) / 1.8

Bedit1.text = ""
label1.caption = label1.tag
End Sub

Sub Command1_GotFocus ()
If newload Then
BEditform.label1.caption = BEditform.label1.tag
newload = 0
End If
End Sub

