log af

Jeg mener at det er sådan.

\'----------------------------------- Form1 -----------------------------------
Private Declare Function ExitWindowsEx Lib \"user32\" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Private Sub Form_Load()
ExitWindowsEx EWX_FORCE Or EWX_LOGOFF, 0
End Sub
\'----------------------------------- Form1 -----------------------------------

Hej Simon.

Jeg bruger metoden.

Dim slut as long

slut = Shell(\"C:\\Windows\\Rundll.exe user.exe,exitwindows\")

Selve kommandoen kan også bruges under en genvej, altså

C:\\Windows\\Rundll.exe user.exe,exitwindows

M.v.h. Jørn