Private Sub Form_Load()
Shell "rundll32.exe user.exe,exitwindows 1"
End Sub

    Source: geocities.com/matkins70