multiline tool tip

[luca90]

why the code dont show a multiline tool tip?

instead if the label is on the form the code work fine!

[Steve Grant]

Because a label is not a 'Windowed' control and doesn't have a HWND, you must set the tooltip HWND to the parent of the label. In your case this is Picture1.

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Not m_bInLable Then
        m_bInLable = True
        TT.Title = "Multiline tooltip"
        TT.TipText = "Label1"
        TT.Create Picture1.hwnd
    End If
End Sub

[luca90]

Because a label is not a 'Windowed' control and doesn't have a HWND, you must set the tooltip HWND to the parent of the label. In your case this is Picture1.

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Not m_bInLable Then
        m_bInLable = True
        TT.Title = "Multiline tooltip"
        TT.TipText = "Label1"
        TT.Create Picture1.hwnd
    End If
End Sub

great! work!
.... uhmmm..

how to check when the mouse is out of the area of label1?

in this case i need to set nothing the tooltip multiline, whit:

If m_bInLable Then
m_bInLable = False
TT.Destroy
End If

[Arnoutdv]

When the mouse moves over Picture1 set m_bInLable to False

[Bobbles]

I have a few projects for multiline tooltips.
This one is for windowless controls (eg a Label) -
https://www.freevbcode.com/ShowCode.asp?ID=5765
Yell out if it aint what you need (as I may have other windowless ones stashed away)
Rob