Tugas1. Bahasa Pemrograman

Private Sub Form_Load()

 

End Sub

 

Private Sub tyabatal_Click()

tyanpm.SetFocus

tyanpm = ” ”

tyanama = ” ”

tyaalamat = ” ”

End Sub

 

Private Sub tyakeluar_Click()

End

End Sub

 

Private Sub tyalagi_Click()

tyanpm.SetFocus

tyanpm = ” ”

tyanama = ” ”

tyaalamat = ” ”

End Sub

 

Private Sub tyanama_keypress(keyascii As Integer)

If keyascii = 13 Then

tyaalamat.SetFocus

End If

 

End Sub

 

Private Sub tyanpm_keypress(keyascii As Integer)

If keyascii = 13 Then

tyanama.SetFocus

End If

End Sub