[Motaz Alnuweiri]

تفضل أخي

كود :

<DllImport("user32.dll")> _
Public Shared Function LockWorkStation() As Boolean
End Function

Public Sub LockWindows()
    If LockWorkStation() Then
        MessageBox.Show("تم بنجاح تأمين الويندوز", "تأمين الويندوز", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End If
End Sub