Private Sub Command1_Click()
Shell "shutdown -s -t xx"

End Sub

dove xx sono i secondi da far passare prima di spegnere il computer

ES: se vuoi che si spenga dopo 10 sec scrivi

Shell "shutdown -s -t 10"

questo metodo nn chiede conferma e si può interrompere solo scrivendo

Shell "shutdown -a" '(dove -a sta per abort)