Visual Basic code editor

VB Code:
  1. Private Sub lstIndex_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

  2. If lstIndex.ListItems.Count Then

  3.    If (y > (lstIndex.SelectedItem.Index * 210 + 60) And (lstIndex.SelectedItem.Index * 210 + 270)) Then

  4.         lstIndex.ToolTipText = lstIndex.SelectedItem.Text & " - " & lstIndex.SelectedItem.SubItems(1)

  5.    Else

  6.         lstIndex.ToolTipText = ""

  7.    End If

  8. End If

  9. End Sub