Private Sub ComboBox_lig_info_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ligne = Int(Y / (Me.ComboBox_lig_info.Font.Size * 1.2))
If Me.ComboBox_lig_info.TopIndex >= 0 Then
temp = ComboBox_lig_info.List(ligne + Me.ComboBox_lig_info.TopIndex, 1)
c = [Lig_info_libelle].Find(temp).Font.Color
Me.Infobulle.Caption = temp
Me.Infobulle.ForeColor = c
Else
Me.Infobulle.Caption = ""
End If
End Sub