Tugas1_3

APLIKASI PENJUMLAHAN

Private Sub cmdhitung_Click()

Texttotal = Val(text1) + (text2)

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdlagi_Click()

text1 = ""

text2 = ""

Texttotal = ""

text1.SetFocus

End Sub