'programmier ereignis....
Private Sub cmdSichern_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles cmdSichern.Click
        Dim Zeit1 As String = txtZeit1.Text
        Dim Zeit2 As String = txtZeit2.Text
        Dim prufe1, prufe2, zeichen1, zeichen2, zeit As String
        zeichen1 = Microsoft.VisualBasic.Left(Zeit1, 2)
        zeichen2 = Microsoft.VisualBasic.Right(Zeit2, 2)
        prufe1 = Microsoft.VisualBasic.Len(zeichen1)
        prufe2 = Microsoft.VisualBasic.Len(zeichen2)
        If prufe1 = "2" And prufe2 = "2" Then
            zeit = TimeValue(zeichen1 & ":" & zeichen2)
            dif = Math.Round(CDbl(DateDiff("s", TimeOfDay, zeit)))
            If dif < 0 Then
                MsgBox("Zeitpunk vergangen! Bitte wählen Sie einen anderen!", _
                  MsgBoxStyle.Exclamation + MsgBoxStyle.OKOnly, "Setzen Sie" & _
                  "einen anderen Zeitpunkt!")
            Else
                If MsgBox("Soll Windows sicher um " & zeit & " Uhr" & _
                  "heruntergefahren werden?", MsgBoxStyle.Question + _
                  MsgBoxStyle.YesNo, "Sicher?") = MsgBoxResult.Yes Then
                    lSeconds = 0
                    Timer1.Enabled = True
                    Timer1.Interval = 1000
                    Me.Hide()
                    Io.Visible = True
                End If
            End If
        End If
    End Sub
 
'zeit wird gezählt ...
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        ' nach sekunden zählen
        lSeconds = lSeconds + 1
        ' 1000 ms = 1 sec
        If lSeconds >= dif Then
            Timer1.Enabled = False
            Shutdown.getShutdownPrivileges()
            Shutdown.InitiateSystemShutdown("", "", 0, True, False)
            End
        End If
    End Sub