LockScreenUpdate - LockWindowsUpdate

[imosha]

LockScreenUpdate - LockWindowsUpdate

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

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

[DinoVaught]

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

[dglienna]

the question was for screen #2, though