PERHITUNGAN HARGA DISKON DENGAN ENTER

Private Sub Cmdquit_Click()
Unload Me
End Sub

Private Sub Cmdulangi_Click()
TxtHA.SetFocus
TxtHA = “”
TxtDis = “”
Txtakhir = “”
End Sub

Private Sub TxtHA_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtDis.Text = Val(TxtHA.Text) * 0.1
Txtakhir.Text = Val(TxtHA.Text) – Val(TxtDis.Text)
End If
End Sub