HARGA DISKON 10%

Private Sub Comhitung_Click()

Dim ha, dis, akhir As Double

Txtdis.Text = Val(Txtha.Text) * 0.1

Txtakhir.Text = Val(Txtha.Text) – Val(Txtdis.Text)

End Sub

 

Private Sub Comkeluar_Click()

End

End Sub

 

Private Sub Comulang_Click()

Txtha = “”

Txtdis = “”

Txtakhir = “”

End Sub

Private Sub Txtha_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtdis.SetFocus

End If

End Sub