Запретить окну отображаться на панели

Private Sub Is_Help(Obj As Object, Button As Integer)
    Const c1 = 9
    Dim p As POINTAPI, Message$
    Dim h As POINTAPI
    Text1.Visible = False
    If Button = 2 Then
        GetCursorPos p
        h.x = WindowFromPoint(p.x, p.y)
        p.x = p.x * Tw.x: p.y = p.y * Tw.y
        RaiseEvent Help(Obj.Name, Message, p.x, p.y)
        If Len(Message) Then
            SetParent Text1.hwnd, 0: Label1.Caption = Message
            Text1.Move p.x, p.y + Tw.y * Tw.y, Label1.Width + Tw.x * c1, Label1.Height + Tw.y * c1
            Text1 = Message:  Text1.Visible = True
            Do
                DoEvents: Sleep 200
                GetCursorPos p
                h.y = WindowFromPoint(p.x, p.y)
            Loop While h.y = h.x Or h.y = Text1.hwnd
            Text1.Visible = False
        End If
    End If
End Sub

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Const GWL_EXSTYLE = (-20)
Const WS_EX_TOOLWINDOW = 128
Private Sub Form_Load()
SetWindowLong Me.hWnd, GWL_EXSTYLE, WS_EX_TOOLWINDOW
End Sub

'Event Declarations:
Event BeforeOpening(Cancel As Boolean)
Event ClickButton2() 'MappingInfo=Command2,Command2,-1,Click
Event ClickCheck(Value As Integer) 'MappingInfo=Check1,Check1,-1,Click
Event SelectPath() 'MappingInfo=Combo1,Combo1,-1,Click
Event Help(hlpObjName$, Message$, ScreenX As Long, ScreenY As Long)
 
'---------------------------------------[WinApi]
Private Declare Function GetCursorPos Lib "user32.dll" (lpPoint As POINTAPI) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function WindowFromPoint Lib "user32.dll" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
 
Private Sub Is_Help(Obj As Object, Button As Integer)
    Const c1 = 9
    Dim p As POINTAPI, Message$
    Dim h As POINTAPI
    
    Text1.Visible = False
    If Button = 2 Then
        GetCursorPos p
        h.x = WindowFromPoint(p.x, p.y)
        p.x = p.x * Tw.x: p.y = p.y * Tw.y
        RaiseEvent Help(Obj.Name, Message, p.x, p.y)
        If Len(Message) Then
            SetParent Text1.hwnd, 0: Label1.Caption = Message
            Text1.Move p.x, p.y + Tw.y * Tw.y, Label1.Width + Tw.x * c1, Label1.Height + Tw.y * c1
            Text1 = Message:  Text1.Visible = True
            Do
                DoEvents: Sleep 200
                GetCursorPos p
                h.y = WindowFromPoint(p.x, p.y)
            Loop While h.y = h.x Or h.y = Text1.hwnd
            Text1.Visible = False
        End If
    End If
End Sub
 
Private Sub UserControl_Initialize()
    Const GWL_USERDATA = (-21)
    Const WS_EX_TOOLWINDOW = 128
    Set m_Dic = CreateObject("Scripting.Dictionary")
    m_Dic.CompareMode = 1
    Picture1.BorderStyle = 0
    Tw.x = Screen.TwipsPerPixelX
    Tw.y = Screen.TwipsPerPixelY
    SetWindowLong Text1.hwnd, GWL_USERDATA, WS_EX_TOOLWINDOW
End Sub

SetWindowLong Text1.hwnd, GWL_EXSTYLE, GetWindowLong(Text1.hwnd, GWL_EXSTYLE) Or WS_EX_TOOLWINDOW

Private Sub UserControl_Initialize()
    Const GWL_EXSTYLE = (-20)
    Const WS_EX_TOOLWINDOW = 128
    Set m_Dic = CreateObject("Scripting.Dictionary")
    m_Dic.CompareMode = 1
    Picture1.BorderStyle = 0
    Tw.x = Screen.TwipsPerPixelX
    Tw.y = Screen.TwipsPerPixelY
    SetWindowLong Text1.hwnd, GWL_EXSTYLE, GetWindowLong(Text1.hwnd, GWL_EXSTYLE) Or WS_EX_TOOLWINDOW
End Sub

Option Explicit
 
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
Private Type TOOLINFO
   cbSize As Long
   uFlags As Long
   hwnd As Long
   uId As Long
   RECT As RECT
   hinst As Long
   lpszText As Long
   lParam As Long
End Type
 
Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExW" (ByVal dwExStyle As Long, ByVal lpClassName As Long, ByVal lpWindowName As Long, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageW" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
 
Private Const TOOLTIPS_CLASS = "tooltips_class32"
Private Const TTS_ALWAYSTIP = &H1
Private Const WS_EX_TOPMOST = &H8&
Private Const WM_USER = &H400
Private Const TTM_ADDTOOLW = WM_USER + 50
Private Const TTM_SETMAXTIPWIDTH = WM_USER + 24
Private Const TTF_IDISHWND = &H1&
Private Const TTF_SUBCLASS = &H10&
 
Dim hTool As Long
 
Private Sub Form_Load()
    Dim ti As TOOLINFO, btn1 As CommandButton, btn2 As CommandButton
    Set btn1 = Me.Controls.Add("VB.CommandButton", "cmd1")
    Set btn2 = Me.Controls.Add("VB.CommandButton", "cmd2")
    btn1.Move 100, 100, 4000, 700: btn1.Visible = True
    btn2.Move 100, 800, 4000, 700: btn2.Visible = True
    hTool = CreateWindowEx(WS_EX_TOPMOST, StrPtr(TOOLTIPS_CLASS), 0, TTS_ALWAYSTIP, 0, 0, 50, 50, Me.hwnd, 0, App.hInstance, ByVal 0&)
    ti.cbSize = Len(ti): ti.uFlags = TTF_IDISHWND Or TTF_SUBCLASS: ti.hwnd = Me.hwnd: ti.hinst = App.hInstance
    ti.uId = btn1.hwnd: ti.lpszText = StrPtr("Multiline tooltip" & vbNewLine & "Second line" & vbNewLine & "Btn1")
    SendMessage hTool, TTM_ADDTOOLW, 0, ti
    ti.uId = btn2.hwnd: ti.lpszText = StrPtr("Multiline tooltip2" & vbNewLine & "Second line" & vbNewLine & "Btn2")
    SendMessage hTool, TTM_ADDTOOLW, 0, ti
    SendMessage hTool, TTM_SETMAXTIPWIDTH, 0, 60&
End Sub
Private Sub Form_Unload(Cancel As Integer)
    DestroyWindow hTool
End Sub

Dim hTool As Long
Dim WithEvents btn1 As CommandButton, WithEvents btn2 As CommandButton
 
Private Sub btn1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then
        '?
    End If
End Sub
 
Private Sub Form_Load()
    Dim ti As TOOLINFO
    Set btn1 = Me.Controls.Add("VB.CommandButton", "cmd1")
    Set btn2 = Me.Controls.Add("VB.CommandButton", "cmd2")

Private Sub btn1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then
        Dim o As Object
        For Each o In Me
            If TypeName(o) = "Menu" Then o.Enabled = False
        Next
        PopupMenu mnu1, 0, X, Y
    End If
End Sub