Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
If Not IsNumeric(Me.TextBox1.Text) Then
Me.ErrorProvider1.SetError(Me.TextBox1, "Please Enter Only Numeric Values")
Else
Me.ErrorProvider1.SetError(Me.TextBox1, "")
End If
End Sub
Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
If IsNumeric(Me.TextBox2.Text) Then
ErrorProvider2.SetError(Me.TextBox2, "Please Enter Only Charachter Values")
Else
Me.ErrorProvider2.SetError(Me.TextBox2, "")
End If
