Разработка компонентов

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 dlgBrawser1_Help(hlpObjName As String, Message As String, ScreenX As Long, ScreenY As Long)
    '
    '   Пример возникновения события подсказки и вызова сообщения !
    '
    Select Case hlpObjName
    Case "Command1"
        Message = "Кнопка обзора папок" & vbCrLf & _
        "Пример возникновения события" & vbCrLf & _
        "подсказки и вызова сообщения !"
    Case "Command2"
        Message = "Кнопка дополнително ..."
    Case "Check1"
        Message = "Флажок разрешения ..."
    End Select
End Sub