from 2

FROM 2

 

 

 

 

 

 

 

 

PROJECT 2

Private Sub Cmdhitung_Click()
txtd.Text = Val(txtha.Text) * 0.2
txthak.Text = Val(txtha.Text) – Val(txtd.Text)
End Sub

Private Sub Cmdlagi_Click()
txtha.SetFocus
txtha = “”
txtd = “”
txthak = “”
End Sub

Private Sub Cmdquit_Click()
End
End Sub

Private Sub txtha_KEYPRESS(keyascii As Integer)
If keyascii = 13 Then
txtd.SetFocus
End If
End Sub