' ALLGEMEIN BEREICH
Dim tt As = ToolTip = New ToolTip

        With tt
            .AutoPopDelay = 1000
            .InitialDelay = 100
            .ReshowDelay = 50
            .ShowAlways = False
            .SetToolTip(Me.cmbGeschäftsvorfall, Me.cmbGeschäftsvorfall.Text)
        End With

Private Sub cmbGeschäftsvorfall_SelectedValueChanged(ByVal sender As Object, _
  ByVal e As System.EventArgs) Handles cmbGeschäftsvorfall.SelectedValueChanged
If  cmbGeschäftsvorfall.SelectionLength >0 then
       tt.SetToolTip(cmbGeschäftsvorfall, cmbGeschäftsvorfall.Text)
EndIf
    End Sub