Private Sub DateTimePicker1_ValueChanged _
(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
        Static sperre As Boolean
        If sperre Then Exit Sub
        sperre = True
        Dim d As Date = DateTimePicker1.Value
        MessageBox.Show(CStr(d))
        sperre = False
End Sub