PROGRAM 1 TUGAS 2

Private Sub Cmdhitung_Click()

Txt2 = Val(Txt1) * 0.15

Txt3 = Val(Txt1) - Val(Txt2)

End Sub

Private Sub Cmdulangi_Click()

Txt1 = ""

Txt2 = ""

Txt3 = ""

End Sub

Private Sub Cmdquit_Click()

Unload Me

End Sub