Per spegnere il pc ho trovato:
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Sub Command1_Click()
ExitWindowsEx 15, 0
End Sub
Solo che con Win Xp non funzionava poi ho creato il file .exe ed ho usato la funzione "esegui il programma in modalità compatibile con Win 95" di Win Xp e mi funziona solo che l'ho dovuto impostare manualmente. Se qlc1 sa come modificarla tramite codice l'impostazione di compatibilità...
Ps. fatemi sapere se funziona con i fratelli di Xp
CIAO