vb de visual basic te Bilgisayarı kapama kapatma kodu

Bilgisayarı kapama kodu
Private Sub Command1_Click() Shell ("C:\Windows\rundll32.exe user,exitwindows") End Sub Private Sub Form_Load() Command1.Caption = "Kapat"
End Sub
Private Sub Command1_click() Shell("C:\Windows\Rundll.exe user.exe,exitwindowsexec") unload me
end Sub