Public Class ValidateTextBox
              Inherits TextBox
 
  Public Event ValidateTextEnter
 
  Private Sub MeKeyDown(ByVal sender As Object, ByVal e as ...) Handles _
    Me.KeyDown
            If e.Key = Key.Return Then
                If Validate(Me.Text) Then
                    RaiseEvent ValidateTextEnter()
                Else
                   Console.Beep()
                End If
            End If
  End Sub
 
  Private Function Validate(By Val txt as String) as Boolean
      If Not IsDate(txt) Or txt.Length <> 10 Or txt.Contains(".") Then
        Return False
      Else
        Return True
      End If
  End Function
 
End Class

__________________________________________________________________________
Ein Programmierer ist eine Maschine die Koffein in Programmcode umwandelt!
Und Bier in Bug?s

May the source code be with you.