Public Class Form1
Dim num1 As Integer
Dim num2 As Integer
Dim answer As Integer

Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
num1 = Val(txtNum1.Text)
num2 = Val(txtNum2.Text)
answer = num1 + num2
MsgBox("Num1 + Num2 = " & answer)
End Sub

Private Sub btnSubtract_Click(sender As Object, e As EventArgs) Handles btnSubtract.Click
num1 = Val(txtNum1.Text)
num2 = Val(txtNum2.Text)
answer = num1 - num2
MsgBox("Num1 - Num2 = " & answer)
End Sub

Private Sub btnMultiply_Click(sender As Object, e As EventArgs) Handles btnMultiply.Click
num1 = Val(txtNum1.Text)
num2 = Val(txtNum2.Text)
answer = num1 * num2
MsgBox("Num1 X Num2 = " & answer)
End Sub

Private Sub btnDivide_Click(sender As Object, e As EventArgs) Handles btnDivide.Click
num1 = Val(txtNum1.Text)
num2 = Val(txtNum2.Text)
answer = num1 / num2
MsgBox("Num1 / Num2 = " & answer)
End Sub

Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click
txtNum1.Text = ""
txtNum2.Text = ""
End Sub
End Class