TUGAS 1.1

Private Sub Cmd1_Click()
Txt1.SetFocus
Txt1 = ""
Txt2 = ""
Txt3 = ""
End Sub

Private Sub Cmd2_Click()
Txt1.SetFocus
Txt1 = ""
Txt2 = ""
Txt3 = ""
End Sub

Private Sub Cmd3_Click()
End
End Sub

Private Sub Txt1_keypress(keyascii As Integer)
If keyascii = 13 Then
Txt2.SetFocus
End If
End Sub

Private Sub Txt2_keypress(keyascii As Integer)
If keyascii = 13 Then
Txt3.SetFocus
End If
End Sub