Önce Formunuza bir tane command1 butonu ekleyin. aşağıya yazmış olduğum kodu yazın. Private Sub Command1_click() Shell("C:\Windows\Rundll.exe user.exe,exitwindowsexec") unload me end Sub