Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click, Button5.Click
Dim a As String = CType(sender, Button).Text
Dim b As Integer
If Me.TextBox1.Text = "" Or Me.TextBox2.Text = "" Then
MsgBox("Kolom Kosong", MsgBoxStyle.Critical, "Warning")
If a = "C" Then
Me.TextBox1.Text = ""
Me.TextBox2.Text = ""
Me.TextBox3.Text = ""
End If
Else
If IsNumeric(Me.TextBox1.Text) = False Or IsNumeric(Me.TextBox2.Text) = False Then
MsgBox("Inputan Hanya Berupa Angka", MsgBoxStyle.Exclamation, "Warning")
If a = "C" Then
Me.TextBox1.Text = ""
Me.TextBox2.Text = ""
Me.TextBox3.Text = ""
End If





