by Anonymous (267 Submissions)
Category: Windows System Services
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 18th March 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Log Off user
Dim ret
Form1.Visible = False
ret = ExitWindowsEx(EWX_LOGOFF, EWX_FORCE)
If ret = False Then
MsgBox "sorry try next time"
End If
End Sub