Public Class Compare

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtNum1.TextChanged

End Sub

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click

txtNum1.Text = ""

txtNum2.Clear()

End Sub

Private Sub cmdCompare_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCompare.Click

Dim Num1, Num2 As Integer

Dim result As String = ""

Num1 = txtNum1.Text

Num2 = txtNum2.Text

If Num1 = Num2 Then

result = "Num1=Num2"

End If

If Num1 <> Num2 Then

result = "Num1 not equal to Num2"

End If

lblResult.Text = result

End Sub

End Class