Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal _
   e As System.EventArgs) Handles DateTimePicker1.ValueChanged
        Dim Datum As String = "08.08.2008 12:36"
        While DateTimePicker1.Value <> Datum
            System.Threading.Thread.Sleep(1000) 'Wartet 10 Sek.'
        End While
        Button1.Enabled = True
    End Sub