Article ID: 153026
Article Last Modified on 6/29/2004
Option Explicit
Private Sub Form_Click()
Dim i As Integer
i = CInt(InputBox$("Enter number of node:"))
ListView1.ListItems(i).EnsureVisible
End Sub
Private Sub Form_Load()
Dim lv As ListItem
Dim i As Integer
For i = 1 To 75
Set lv = ListView1.ListItems.Add(, , "item " & i)
Next i
End Sub
Additional query words: 4.00 vb4win vb432
Keywords: KB153026