Visual Basic - ComboBox & ToolTipText

Hola a todos(as)... como hago para activar el ToolTipText a un
ComboBox cargado por un RecordSet apenas elija el registro que
quiera... tengo esto, pero es muy lento... el ToolTipText aparece al
rato... y no se actualiza al alejir otro... como ocurriria con un
ListBox:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Combo1.ToolTipText = Combo1.List(Combo1.ListIndex)
Combo2.ToolTipText = Combo2.List(Combo2.ListIndex)
Combo3.ToolTipText = Combo3.List(Combo3.ListIndex)
Combo4.ToolTipText = Combo4.List(Combo4.ListIndex)
End Sub

... alguna idea????...

Ruben
Gracias..

Puedes probar con un Timer