

Sub Command3D1_Click (Index As Integer)
Select Case Index
Case 0
menuchoice = "new"

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 = .73
admit.picture1.currenty = 2.8
admit.picture1.Print "BEGIN"
Case 1
menuchoice = "one"
Case 2
menuchoice = "two"
Case 3
menuchoice = "three"
Case 4
menuchoice = "four"
Case 5
menuchoice = "five"
Case 6
menuchoice = "six"
Case 7
menuchoice = "seven"
Case 8
menuchoice = "eight"
admit.picture2.tag = "Clear"
Case 9
menuchoice = "nine"
admit.picture2.tag = "Exit"
Case 10
menuchoice = "ten"
Case 11
menuchoice = "eleven"
End Select
MENU.Hide
Unload MENU

End Sub

Sub Form_Load ()
menuchoice = "old"
MENU.Move (screen.width - MENU.width) / 2, (screen.height - MENU.height) / 2
End Sub

