LockScreenUpdate - LockWindowsUpdate

LockScreenUpdate - LockWindowsUpdate

Hi
Dos anyone now how Can i lock My Screen 2 Update

?
LockWindowsUpdate Me.hWnd (not working)
And
LockWindowsUpdate GetDesktopWindow (not working)

Code:

---

Option Explicit
Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long

Private Sub Command1_Click()
Dim iCount As Long
   
    LockWindowUpdate Me.hwnd
   
    iCount = 0
    Do Until iCount = 100000
        ' This loop will cause flicker when the LockWindowUpdate is commented out
        Me.List1.AddItem iCount
        DoEvents
        iCount = iCount + 1
    Loop
   
    LockWindowUpdate False

End Sub

---

the question was for screen #2, though