Private Sub txtIrgendwas_KeyPress(ByVal sender As Object, _ 
  ByVal e As System.Windows.Forms.KeyPressEventArgs) _
  Handles txtIrgendwas.KeyPress
 
  ' ErrorProvider einrichten
  ' ------------------------
  ' Wo soll das Error Icon neben der Textbox angezeigt werden
  ErrTxtIrgendwas.SetIconAlignment(Me.txtIrgendwas, _
    ErrorIconAlignment.MiddleRight)
 
  ' Abstand zwischen der Textbox und dem Error Icon in Pixel
  ErrTxtIrgendwas.SetIconPadding(Me.txtIrgendwas, 2)
 
  ' aktuelle Eingabe auf numerischen Wert überprüfen
  If IsNumeric(e.KeyChar) Then
    ' Ist i.O., Error löschen, Icon verschwindet
    ErrTxtIrgendwas.SetError(Me.txtIrgendwas, "")
 
  Else
    ' Falls nicht numerisch, Erroricon anzeigen, 
    ' Text ausgeben, wenn Mauszeiger auf das Erroricon kommt
    ErrTxtIrgendwas.SetError(Me.txtIrgendwas, _
      "Sie dürfen nur Zahlen eingeben")
    ' Zeichen unterdrücken
    e.Handled = True
  End If
 
End Sub