Buat Command Restar n Shtdwn

Pada visual basic cukup kita sediakan 1 form dan 2 command masing-masing dengan nama cmdRestart dan cmdShutdown silakan masukkan kode di bawah ini sesuai namanya

Code:
Private Sub cmdRestart_Click()
Dim Aku As String
Aku = MsgBox("Anda ingin Restart ?", vbYesNo, "Nanya Nech...!!!")
If Aku = vbYes Then
'RESTART
Shell "shutdown -r -f -t 0"
Else
MsgBox "Ngak Jadi Restart...!!!", vbInformation, "Informasi"
End If
End Sub

Private Sub cmdShutdown_Click()
Dim Cinta As String
Cinta = MsgBox("Anda ingin Shutdown ?", vbYesNo, "Nanya Nech...!!!")
If Cinta = vbYes Then
'SHUTDOWN
Shell "shutdown -s -f -t 0"
Else
MsgBox "Ngak Jadi Shutdown...!!!", vbInformation, "Informasi"
End If
End Sub

Selamat mencoba