Private Sub Command1_Click()
Select Case Option1.CausesValidation And Option2.CausesValidation And Option3.CausesValidation
Case Option1.Value = True And Option2.Value = False And Option3.Value = False
Riavvia
Case Option1.Value = False And Option2.Value = True And Option3.Value = False
Spegni
Case Option1.Value = False And Option2.Value = False And Option3.Value = True
Disconnetti
End Select
End Sub
Private Sub Riavvia()
Shell ("shutdown -r -t 00")
End Sub
Private Sub Spegni()
Shell ("shutdown -s -t 00")
End Sub
Private Sub Disconnetti()
Shell ("shutdown -l -t 00")
End Sub