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

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

Сейчас делаю абгрейд своих ранее созданных компонентов подробнее здесь остановился вот на чем ... когда вызываеться мой ToolTipText от правой кнопки мыши то на пенели задач предательски отображаеться надпись Text1 как запретить отображаться на панели и при этом контролу Text1 оставаться самым верхним окном ? (тоесть не принадлежать никому) вот часть кода из UserControl ... может кто что подскажет ?

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

null

это твип если что ...

null

это хендл кнопки или указывающего

h.y

это хендл изменившегося окна

Решение задачи: «Запретить окну отображаться на панели»

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

                            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
                        