Program Shutdown,Restart, LogOff

Dalam tulisan ini berisi code tentang shutdown, restart, dan logoff yang langsung dilakukan di form Visual Basic dimana sumber berasal dari VBCODE yang gue kembangin sendiri, cuma sedikit ajah seh sekdar pengetahuan...

So...loe bisa ngembangin lagi biar tambah sempurna, di program kali neh, loe butuh yang namanya satu form, terus 3 buah command button, atau loe bisa ganti dengan apa gitu, bebas deghhh...

neh source code nya (lagi2 gue nyadur dari vbbego comunity man, tp gue kembangin...(by:tebe)

Private Sub cmdLog_Click()
Dim Log As String
Log = MsgBox("Loe Pengen LogOff Yaph.. ?", vbYesNo, "Nanya Nech...!!!")
If Log = vbYes Then
'LOGOFF:
Shell "shutdown -l -f -t 0"//untuk manggil fungsi Loging Off dari system
Else
MsgBox "Ngak Jadi Log Off...!!!", vbInformation, "Informasi"
End If
End Sub

Private Sub cmdRestart_Click()
Dim Aku As String
Aku = MsgBox("Loe Pengen Restart ?", vbYesNo, "Nanya Nech...!!!")
If Aku = vbYes Then
'RESTART
Shell "shutdown -r -f -t 0"//untuk manggil fungsi restrat dari system
Else
MsgBox "Ngak Jadi Restart...!!!", vbInformation, "Informasi"
End If
End Sub

Private Sub cmdShutdown_Click()
Dim Cinta As String
Cinta = MsgBox("Loe Beneran Pengen Shutdown ?", vbYesNo, "Nanya Nech...!!!")
If Cinta = vbYes Then
'SHUTDOWN
Shell "shutdown -s -f -t 0"//untuk manggil fungsi shutdown dari system
Else
MsgBox "Ngak Jadi Shutdown...!!!", vbInformation, "Informasi"
End If
End Sub