Attribute VB_Name = "Module5"
Option Explicit

Public Declare Function LockWindowUpdate Lib "user32" _
    (ByVal hWnd As Long) As Long

Sub LockWindow(hWnd As Long)
    LockWindowUpdate hWnd
End Sub

Sub UnlockWindow()
    LockWindowUpdate 0
End Sub