Public Class Form1
    Inherits System.Windows.Forms.Form
    Private ErrTxtIrgendwas As New ErrorProvider ' Instanz der Klasse 
    ' ErrorProvider erzeugen
 
#Region " Vom Windows Form Designer generierter Code "
 
 
    Private Sub btnSchliessen_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnSchliessen.Click
        Me.Close() ' Form schliessen
    End Sub
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles MyBase.Load
 
        ' ErrorProvider einrichten
        ' ------------------------
        ' Wo soll das Erroricon neben der Textbox angezeigt werden
        Me.ErrTxtIrgendwas.SetIconAlignment(Me.txtIrgendwas, _
          ErrorIconAlignment.MiddleRight)
        ' Abstand zwischen der Textbox und dem Erroricon in Pixel
        Me.ErrTxtIrgendwas.SetIconPadding(Me.txtIrgendwas, 2)
 
    End Sub
 
 
    Private Sub txtIrgendwas_Validating(ByVal sender As Object, ByVal e As _
      System.ComponentModel.CancelEventArgs) Handles txtIrgendwas.Validating
        'Eingabe der Textbox auf numerischen Wert überprüfen
        If IsNumeric(Me.txtIrgendwas.Text) Then
            ' Ist i.O., Error löschen, Icon verschindet
            Me.ErrTxtIrgendwas.SetError(Me.txtIrgendwas, "")
 
        Else
            ' Ist kein numerischer Wert, Erroricon anzeigen, Text ausgeben, wenn
            ' Mauszeiger auf das Erroricon kommt
            Me.ErrTxtIrgendwas.SetError(Me.txtIrgendwas, "Sie dürfen nur Zahlen" & _
              "eingeben")
            ' Verlassen der Textbox unterbinden
            e.Cancel = True
        End If
    End Sub
End Class

Gruss
Cyberclone

--