Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ComboBox1.ControlTipText = ComboBox1.Value
End Sub
En faite ce que je voulais c'est que l'info bulle s'affiche quand je pointe le curseur sur un des items de la liste à sélectionner mais je me suis rendu compte que l'info bulle ne s'affiche que sur la zone principale.