' Neue Konstante im allgemeinen Bereich der Klasse
Private Const TTM_UPDATETIPTEXT = WM_USER + 12
 
' Neue Funktion zum Ändern des Titels, des Textes und des Icons des ToolTip
Public Sub ChangeToolTipText(ctlTool As Object, strCaption As String, Optional _
  ByVal strTitle As String = "", Optional ByVal iTitleIcon As eIconType = _
  InfoIcon)
    Dim udtToolInfo As TOOLINFO
    With udtToolInfo
        .hWnd = ctlTool.hWnd
        .uId = ctlTool.hWnd
        .lpszText = strCaption
        .cbSize = Len(udtToolInfo)
    End With
 
    If CheckComCtl32Version Then
        If strTitle <> "" Then
            SendMessageStr m_hWnd, TTM_SETTITLE, iTitleIcon, strTitle
        Else
            SendMessageStr m_hWnd, TTM_SETTITLE, 0, ""
        End If
    End If
 
    SendMessage m_hWnd, TTM_UPDATETIPTEXT, 0, udtToolInfo
End Sub