Shutdown, Restart dan Log Off

Dalam tulisan ini berisi code tentang shutdown, restart, dan logoff
-------------------------------------------------------------------
Private Sub cmdLog_Click()
Dim Log As String
Log = MsgBox("Anda ingin Log off ?", vbYesNo, "Nanya Nech...!!!")
If Log = vbYes Then
'LOGOFF:
Shell "shutdown -l -f -t 0"
Else
MsgBox "Ngak Jadi Log Off...!!!", vbInformation, "Informasi"
End If
End Sub
-------------------------------------------------------------------
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