Private Sub CommandBATAL_Click()
TXTKB.SetFocus
TXTKB = “”
TXTNB = “”
TXTHB = “”
TXTJB = “”
TXTJBY = “”
End Sub

Private Sub CommandKELUAR_Click()
Unload Me
End Sub

Private Sub CommandLAGI_Click()
TXTKB.SetFocus
TXTKB = “”
TXTNB = “”
TXTHB = “”
TXTJB = “”
TXTJBY = “”
End Sub

Private Sub TXTHB_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTJB.SetFocus
End If
End Sub
Private Sub TXTJB_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTJBY.Text = Val(TXTHB.Text) * Val(TXTJB.Text)
End If
End Sub

Private Sub TXTKB_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTNB.SetFocus
End If
End Sub

Private Sub TXTNB_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTHB.SetFocus
End If
End Sub

Private Sub CMDBatal_Click()
TXTNPM.SetFocus
TXTNPM = ” ”
TXTNM = ” ”
TXTPS = ” ”
TXTJUR = ” ”
TXTAL = ” ”
End Sub

Private Sub CMDKeluar_Click()
End
End Sub

Private Sub CMDLagi_Click()
TXTNPM.SetFocus
TXTNPM = ” ”
TXTNM = ” ”
TXTPS = ” ”
TXTJUR = ” ”
TXTAL = ” ”
End Sub

Private Sub TXTJUR_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTAL.SetFocus
End If
End Sub

Private Sub TXTNM_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTPS.SetFocus
End If
End Sub
Private Sub TXTNPM_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTNM.SetFocus
End If
End Sub
Private Sub TXTPS_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTJUR.SetFocus
End If
End Sub

Welcome to WordPress.com! This is your very first post. Click the Edit link to modify or delete it, or start a new post. If you like, use this post to tell readers why you started this blog and what you plan to do with it.

Happy blogging!