Private Declare Function LockWindowUpdate Lib "user32"(ByVal hwndLock As _
  Integer) As Integer
Private Declare Function GetDesktopWindow Lib "user32"() As Integer
Private Declare Function EnableWindow Lib "user32.dll"(ByVal hwnd As Integer, _
  ByVal fEnable As Integer) As Integer
 
Private Sub Main
 
Dim HWND As Integer = GetDesktopWindow()
EnableWindow(HWND,0)
LockWindowUpdate(HWND)
 
End Sub