Public Class DateTimeTextBox
    Inherits TextBox
 
    Protected Overrides Sub OnValidating(ByVal e As _
      System.ComponentModel.CancelEventArgs)
        Dim datum As DateTime
        e.Cancel = Not DateTime.TryParse(Me.Text.Trim, datum)
    End Sub
End Class

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist