Option Explicit
Dim Zeit
 
Private Sub cmdJetzt_Click()
If Option1.Value = True Then
   RebootSystem EWX_POWEROFF
ElseIf Option2.Value = True Then
   RebootSystem EWX_LOGOFF
ElseIf Option3.Value = True Then
   RebootSystem EWX_REBOOT
End If
End Sub
 
Private Sub cmdZeit_Click()
Picture2.Visible = True
Timer1.Enabled = True
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Set frmShutDown = Nothing
Set Zeit = Nothing
End Sub
 
Private Sub Timer1_Timer()
Zeit = Format(Now, "hh:mm")
If txtZeit.Text = Zeit Then
If Option1.Value = True Then
   RebootSystem EWX_POWEROFF
ElseIf Option2.Value = True Then
   RebootSystem EWX_LOGOFF
ElseIf Option3.Value = True Then
   RebootSystem EWX_REBOOT
End If
End If
End Sub

Public Enum EWX_ACTION
  EWX_LOGOFF = 0
  EWX_SHUTDOWN = 1
  EWX_REBOOT = 2
  EWX_POWEROFF = 8
  EWX_FORCE = 4
End Enum