Sub SetToolTippAdr(AdrComboBox As Control)
    'setzen der Tool-Tipp-Anzeige
    Dim strAdr As String
    Dim Index As Long
 
    With AdrComboBox
        Index = .ListIndex
        If Index > -1 Then
            ' Balloon-ToolTip
            .BalloonTip = True
            ' Bildsymbol "Info"
            .ToolTipIcon = rsInfoIcon
            ' ToolTip-Überschrift
            .ToolTipTitle = "Adresse:"
            strAdr = .SubItem(Index, 5) & Chr(10)
            strAdr = strAdr & .SubItem(Index, 6) & Chr(10)
            strAdr = strAdr & .SubItem(Index, 3) & " " & .SubItem(Index, 4)
            .ToolTip = strAdr
        Else
 
            ' Balloon-ToolTip
            .BalloonTip = False
 
            .ToolTip = ""
        End If
    End With
End Sub