Option Explicit
Dim Objekt As New AusschaltenXP
 
Private Sub cmdHerunterfahren_Click()
 
     ' Sofort herunterfahren:
     Call Objekt.Ausfuehren(Herunterfahren)
 
     ' Erst nachdem der Benutzer bestätigt hat herunterfahren:
     Call Objekt.Ausfuehren(Herunterfahren_DLG, "Wollen Sie den PC wirklich" & _
       "herunterfahren?", "Mein Anwendungs-Titel")
 
End Sub