Как отловить события мерцания image контролов и label - VB

Формулировка задачи:

Не пойму принцип работы классов никогда с ними не работал как отловить мерцания imagebox и label бокс на форме или всех сразу ? Создал модуль класса в нем код

Dim image1 As Object 'Думаю этот код цепляет объект  image1
 
Private Declare Function LockWindowUpdate Lib "user32" (ByVal hWnd As Long) As Long

Private Sub Class_Initialize()
 
' Как определить именно image1 обновился ? Т.е Замерцал Сам синтаксис и вызов не пойму! 
 
image1 (lockwindowupdate form1.hwnd) 'Брокируем форму
End Sub
 
Private Sub Class_Terminate()
'Перестал мерцать 
         image1( lockwindowupdate 0 )'Разблокируем форму
End Sub

Решение задачи: «Как отловить события мерцания image контролов и label»

textual
                            Листинг программы 
                        

                            'declare function to stop window flickering when loading / updating forms
Private Declare Function LockWindowUpdate Lib _
"USER32" (ByVal hwndLock As Long) As Long
 
Код:
 
Option Explicit
 
Public Sub Form(pForm As Form)
    LockWindowUpdate pForm.hWnd
End Sub
 
Private Sub Class_Initialize()
    'check who called the class
End Sub
 
Private Sub Class_Terminate()
    LockWindowUpdate False
End Sub
                        