Private Sub TextBox1_Validating(ByVal Sender As Object, ByVal _
	e As CancelEventArgs) Handles TextBox1.Validating 
   If Not IsNumeric(TextBox1.Text) Then
      ErrorProvider1.SetError (TextBox1, "Not a numeric value.")
   Else
      ErrorProvider1.SetError (TextBox1, "")
   End If