PROGRAM 3 PENJUMLAHAN MENGGUNAKAN MANUAL

Private Sub Cmdhitung_Click()

txtjumlah = Val(txtn1) + Val(txtn2) + Val(txtn3)

End Sub

Private Sub Cmdbatal_Click()

txtn1 = ""

txtn2 = ""

txtn3 = ""

txtn1.SetFocus

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Cmdlagi_Click()

txtn1 = ""

txtn2 = ""

txtn3 = ""

txtn1.SetFocus

End Sub