Tugas 1.1

Private sub label 6-click()
Text 1 setfocus
Text 1= " "
Text 2= " "
Text 3= " "
End sub

Pribe sub label 7- click()
Text 1.setfcus
Text 1= " "
Text 2= " "
Text 3= " "
End sub

Private sub label8 -click ()
End
End sub

Private sub text1 -keypress (keyasc11 asinteger)
if keyasc11 =13 then
Text 2.setfocus
End if
End sub

Private sub text 2-keypress (keyasc11 as integer)
If keyascii = 13 then
Text 3.setfocus
End if
End sub