Private Sub Cmdhitung_click()
Text4 = Val(Text1) + Val(Text2) - Val(Text3)
Text5 = Val(Text4) * 0.1
Text6 = Val(Text4) - Val(Text5)
End Sub
Private Sub Cmdulang_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
End Sub
Private Sub Cmdkeluar_Click()
Unload Me
End Sub
Komentar
Posting Komentar