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, StrPtr("ThunderDFrame"), StrPtr(Me.Caption))
Me.Caption = meCap