如图，别人做的界面。
我想仿作，可是不知道怎么做。
第一，如何让打开界面时两个listbox框第一行显示为蓝色？
第二，如何在鼠标经过每一行时显示一个悬浮框？
谢谢！

[此贴子已经被作者于2020-2-24 16:11编辑过]

Private Sub List1_Click()
  List1.ToolTipText = List1
End Sub

谢谢！我的意思是鼠标从上方移动时出现，我改为
Private Sub List1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
List1.ToolTipText = List1
End Sub
可是不好使。

只要设置了ToolTipText值，鼠标移过都会显示的，不需要响应MouseMove事件。大部分控件都有ToolTipText属性。

感觉效果不太好，如果选中了一个，背景色变为蓝色，那么鼠标移过其他文本时，也是显示选中的那个，而且感觉很不灵活。