Как получить Handle элемента управления пользовательской формы?

Option Explicit
'
'        © Антихакер32™
'        Модуль многократного использования хуков,
'        и отлова любого оконного сообщения
'
Public Const GWL_WNDPROC = -4
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Dim Co As New Collection
 
Public Function DelMessage(Key$) As Boolean
    'Удаление сообщения
    Dim hWnd&, v: On Error GoTo ERRR
    hWnd = Co(Key)(0): Co.Remove Key: DelMessage = True
    For Each v In Co: If v(0) = hWnd Then Exit Function
    Next: DelMessage = SetWindowLong(hWnd, GWL_WNDPROC, 0)
ERRR:
End Function
 
Public Function CloseClassHooks(ClassPtr&) As Boolean
    'Закрытие хуков связанных только с этим классом
    Dim s$, v: On Error GoTo ERRR
    For Each v In Co: If v(5) = ClassPtr Then s = s & " " & v(0) & v(1)
    Next
    For Each v In Split(Mid$(s, 2))
        Call SetWindowLong(Co(v)(0), GWL_WNDPROC, 0)
        Co.Remove CStr(v)
    Next: CloseClassHooks = True
ERRR:
End Function
 
Public Function CloseHooks(hWnd&) As Boolean
    'Закрытие хуков этого окна
    Dim s$, v: On Error GoTo ERRR
    CloseHooks = SetWindowLong(hWnd, GWL_WNDPROC, 0)
    For Each v In Co
        If v(0) = hWnd Then s = s & " " & v(0) & v(1)
    Next
    For Each v In Split(Mid$(s, 2))
        Co.Remove CStr(v)
    Next: CloseHooks = True
ERRR:
End Function
 
Public Function CloseAll() As Boolean
    'Закрытие всех хуков (обычно по завершении программы)
    Dim v: On Error GoTo ERRR
    For Each v In Co
        CloseAll = SetWindowLong(v(0), GWL_WNDPROC, 0)
    Next: Set Co = Nothing: CloseAll = True
ERRR:
End Function
 
Public Function AddHook(hWnd&, Message&, ProcObject As Object, _
ProcName$, ClassPtr&) As Boolean
    Dim SWL&: On Error GoTo ERRR
    If Co Is Nothing Then Set Co = New Collection
    DelMessage (hWnd & Message) 'Снятие старого хука
    SWL = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf WindowProc)
    Co.Add Array(hWnd, Message, ProcObject, ProcName, SWL, ClassPtr), CStr(hWnd & Message)
    AddHook = SWL > 0
ERRR:
End Function
 
Private Function WindowProc(ByVal hWnd As Long, ByVal Msg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
    Dim SLW&, v: On Error GoTo ERRR
    For Each v In Co
        If v(0) = hWnd Then SLW = v(4) 'Крючёк (тоесть Hook)
        If v(0) = hWnd And v(1) = Msg Then
            WindowProc = CallByName(v(2), v(3), VbMethod, hWnd, Msg, wParam, lParam)
            If WindowProc = 0 Then Exit Function
    End If: Next
ERRR:
    If SLW Then WindowProc = CallWindowProc(SLW, hWnd, Msg, wParam, lParam)
End Function

Option Explicit
 
Public Function DelMessage(Key$) As Boolean
    'Удаление сообщения (Ключ состоит из *hWnd & Message*)
    'Если это сообщение было последим, то снимаются все хуки с этого окна
    DelMessage = mHook.DelMessage(Key)
End Function
 
Public Function CloseHooks(hWnd&) As Boolean
    'Закрытие всех хуков указанного окна
    CloseHooks = mHook.CloseHooks(hWnd)
End Function
 
Public Function CloseAll() As Boolean
    'Закрытие абсолютно всех хуков (обычно по завершении программы)
    CloseAll = mHook.CloseAll
End Function
 
Public Function AddHook(hWnd&, Message&, ProcObject As Object, _
ProcName$) As Boolean
    'Добавление хука
    AddHook = mHook.AddHook(hWnd, Message, ProcObject, ProcName, ObjPtr(Me))
End Function
 
Private Sub Class_Terminate()
    mHook.CloseClassHooks (ObjPtr(Me))
End Sub

Внутренности формы
 
[VB]Option Explicit
'Пример использования таймера на VBA
Dim tmr1 As UGTimer
Dim tmr2 As UGTimer
Dim tt As New UGTT
Dim hk As New UGHook
 
Const HTCAPTION = 2
Const WM_MOVE = &H3
Const WM_SIZE = &H5
Const WM_LBUTTONDOWN = &H201
Const WM_NCLBUTTONDOWN = &HA1
 
'2 строчки для манифеста
Private Declare Sub InitCommonControls Lib "comctl32.dll" ()
Private Sub Form_Initialize(): InitCommonControls: End Sub
 
Public Function TXMove(ParamArray Arg())
    On Error Resume Next
    Arg(1) = WM_NCLBUTTONDOWN
    Arg(2) = HTCAPTION
    TXMove = 1
End Function
 
Private Sub Command2_Click()
    hk.DelMessage Text1.hWnd & WM_LBUTTONDOWN
End Sub
 
Private Sub Command3_Click()
    hk.AddHook Text1.hWnd, WM_LBUTTONDOWN, Me, "TXMove"
End Sub
 
Private Sub Form_Load()
    'Создаём 2 таймера, для особой наглядности
    Set tmr1 = New UGTimer
    Set tmr2 = New UGTimer
    'Вносим аркументы, какая наша процедура будет
    'мониторинговой, тоесть таймер ее будет вызывать
    tmr1.StartTimer Me, "RaiseTimer1", 1000
    tmr2.StartTimer Me, "RaiseTimer2", 100
    Choose(1, New UGObj).FrameRePaint [_Default]
End Sub
 
 
Private Sub Command1_MouseDown(index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    Const s = "Если ты легко и просто //выбил двери головой? //Значит ты тупой и толстый //а не сильный и крутой!!!", r = "//"
    tt.ShowTT Command1(index).hWnd, "Привет", Replace(s, r, vbCrLf), [Важная информация]
End Sub
 
Public Sub RaiseTimer1()
    Static i&: i = i + 1
    Text2 = Text2 & "*" & i & "*" & vbCrLf: Text2.SelStart = Len(Text2)
    
'    Debug.Print "*" & i & "*"
    'Разные ускорения
    If i > 3 Then tmr1.Interval = 100
    If i > 30 Then tmr1.Interval = 1000
    If i > 32 Then tmr1.Enabled = False
End Sub
 
Public Sub RaiseTimer2()
    Static i&: i = i + 1
    Text2 = Text2 & Chr(i + 33): Text2.SelStart = Len(Text2)
'    Debug.Print Chr(i + 33);
    If i > 128 Then tmr2.Enabled = False
End Sub