منبع:https://barnamenevis.org/showpo...8&postcount=14
Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
'// Lock workstation
LockWorkStation()
End Sub
<DllImport("user32.dll")> _
Public Shared Sub LockWorkStation()
End Sub