ListBox , отображение содержимого

вопрос такой, а как бы так сделать, чтобы обрезанное слово в ListBox (vba) при наведении курсора мышки высвечивалось полностью, ну как в combobox при задании авторазмера ИЛИ МОЖЕТ БЫТЬ САМ ЛИСТБОКС УВЕЛИЧИВАЛСЯ ДО ОПТИМУМА, НУ ПОТОМ КОНЕЧНО УМЕНЬШАЛСЯ БЫ (после выбора)

Эта тема была разделена из темы "Пишем FAQ"

Смотрите такую бяку

Private Sub ListBox1_Click()
  With ListBox1
    If Len(.Text) > 40 Then
      .Visible = False
      .Visible = True
      .ControlTipText = .Text
    Else
      .ControlTipText = ""
    End If
  End With
End Sub

Косячок в том, что кроме первого при последующих кликах нужно двинуть мышь