code editor

[dterza01]

Visual Basic code editor


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