Víceřádkový tooltip ve VB

Option Explicit

Dim TT As CTooltip
Dim m_bInLable As Boolean

Private Sub Form_Load()
   Set TT = New CTooltip
   TT.Style = TTBalloon
   TT.Icon = TTIconInfo
End Sub

Private Sub Form_MouseMove(Button As Integer, _
                           Shift As Integer, _
                           X As Single, Y As Single)
   If m_bInLable Then
      m_bInLable = False
      TT.Destroy
   End If
End Sub

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 = "Aplikace pro testování:"
      TT.TipText = "Label1" & vbNewLine & _
                   "Toto je pokusný text tooltipu" & _
                   vbNewLine & _
                   "Na více řádků!"
      TT.Create Me.hwnd
   End If
End Sub