Page 76 - Programming VB.NET

72 Chapter 7: Exceptions Handling

Private Sub btnoverflow_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles btnoverflow.Click

Dim jaw As Short

Try

jaw = Val(txtnum1.Text) +
Val(txtnum2.Text)

MessageBox.Show(jaw)

Catch When Err.Number

MessageBox.Show(Err.Description)

End Try
End Sub