'Add this to your project
'*******************************************

Private Declare Sub LockWorkStation Lib "user32.dll" ()

'Example usage:

Private Sub Command1_Click()
LockWorkStation
End Sub