Data Mahasiswa Stmik Pringsewu With KeyPress

Private Sub Command1_Click()
kolom1 = ""
kolom2 = ""
kolom3 = ""
kolom1.SetFocus
End Sub

Private Sub Command2_Click()
kolom1 = ""
kolom2 = ""
kolom3 = ""
kolom1.SetFocus
End Sub

Private Sub Command3_Click()
Unload Me
End Sub



Private Sub kolom1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
kolom2.SetFocus
End If
End Sub


Private Sub kolom2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
kolom3.SetFocus
End If
End Sub