code editor

Visual Basic code editor

VB Code:

Private Sub lstIndex_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If lstIndex.ListItems.Count Then
   If (y > (lstIndex.SelectedItem.Index * 210 + 60) And (lstIndex.SelectedItem.Index * 210 + 270)) Then
        lstIndex.ToolTipText = lstIndex.SelectedItem.Text & " - " & lstIndex.SelectedItem.SubItems(1)
   Else
        lstIndex.ToolTipText = ""
   End If
End If
End Sub