How to lock a Windows user session

Private Declare PtrSafe Function LockWorkStation Lib "user32" () As Long
Sub LockTest()
    LockWorkStation
End Sub