Java & Netbeans

Download | klik disini

Private Sub cmdhitung_Click()
  txthasil.Text = Val(txtnil1.Text) + Val(txtnil2.Text)
End Sub

Private Sub cmdkeluar_Click()
  Unload Me
End Sub

Private Sub cmdlagi_Click()
  Me.txtnil1.Text = ""
  Me.txtnil2.Text = ""
  Me.txthasil.Text = ""
End Sub

Private Sub cmdprofil_Click()
  MsgBox "Ini Program Buatanku loh "
End Sub

Private Sub cmdtampil_Click()
  MsgBox "Hasilnya : " & Me.txthasil.Text
End Sub