Page 75 - Programming VB.NET

Code With VB .Net 71

Private Sub btnzero_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles btnzero.Click

Try

Dim a, b, c As Integer

a = 3
b = 0

c = a Mod b

Catch When Err.Number

MessageBox.Show(Err.Description & "Try
again", "ERROR")

End Try

End Sub