Ответ: Найти hwnd контрола
Для формы ищется вот так
Private Declare Function FindWindowExW& Lib "user32" (ByVal hParent&, ByVal hChildAfter&, ByVal lpClassW&, ByVal lpTitleW&)
Dim sanUI&
meCap = Me.Caption
Me.Caption = Me.Caption & Hex$(Now) & Hex$(Timer)
sanUI = FindWindowExW(0, 0...