[VB] pc "Locken" (maar niet locken zoals win2k\xp)

[Verwijderd]

Ik heb dus een proggie in VB, en nu wil ik dat ie de pc "Lockt" als dit proggie opstaat, dus bijv. het keyboard disabled, en de icoontjes op de achtergron wegkrijgen (met een groot veld daaroverheen misschien)

Alleen zou ik niet weten hoe dit moet, en als ik zoek op "locken" dan krijg ik dus net wat ik niet wil, zoals de pc locken in 2k\xp (want dat kan ik wel)
(het moet 2k compatible zijn dat wel)

[Verwijderd]

Ik heb dit nu gevonden, zet ik dit dus gewoon in mn vb proggie?
Of moet ik em nog aanspreken met een button of wat?

code:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal _
    lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, _
    ByVal wCmd As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
    ByVal nCmdShow As Long) As Long
Private Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, _
    ByVal fEnable As Long) As Long

Private Const GW_CHILD = 5
Private Const SW_HIDE = 0
Private Const SW_SHOW = 5

Sub ShowDesktopIcons(ByVal bVisible As Boolean)
    Dim hWnd_DesktopIcons As Long
    hWnd_DesktopIcons = GetWindow( FindWindow("Progman", "Program Manager"), _
      GW_CHILD)
    If bVisible Then
      ShowWindow hWnd_DesktopIcons, SW_SHOW
    Else
      ShowWindow hWnd_DesktopIcons, SW_HIDE
    End If
End Sub

Sub EnableDesktop(ByVal bEnable As Boolean)
    Dim hWnd_Desktop As Long
    hWnd_Desktop = GetWindow( FindWindow("Progman", "Program Manager"), _
      GW_CHILD)
    If bEnable Then
      EnableWindow hWnd_Desktop, True
    Else
      EnableWindow hWnd_Desktop, False
    End If
End Sub

You can make the above code more concise in this way: 
Sub ShowDesktopIcons(ByVal bVisible As Boolean)
    ShowWindow GetWindow( FindWindow("Progman", "Program Manager"), GW_CHILD), _
      IIf(bVisible, SW_SHOW, SW_HIDE)
End Sub

Sub EnableDesktop(ByVal bEnable As Boolean)
    EnableWindow GetWindow( FindWindow("Progman", "Program Manager"), GW_CHILD), _
      bEnable
End Sub