如何实现VB的Combox控件当鼠标指向其中一个列表项时，就会出现提示信息

Question

我有个LISTBOX的，你改改就可以用在COMBOX上：
Private Sub List1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  Dim Lcx As Long
  Dim Lcy As Long
  Dim Lci As Long
  If Button = 0 Then ' 若 不 按 下 鼠 标 键
    Lcx = CLng(x / Screen.TwipsPerPixelX)
    Lcy = CLng(y / Screen.TwipsPerPixelY)
    ' 获得当前鼠标位置
    With List1
    Lci = SendMessage(.hWnd, LB_ITEMFROMPOINT, 0, ByVal ((Lcy * 65536) + Lcx))
    ' 计算鼠标所在列表项
    If (Lci >= 0) And (Lci <= .ListCount) Then
      .ToolTipText = List1.List(Lci)
    Else
      .ToolTipText = ""
    End If
  End With
End If