Make Listview scroll down to selected item

Hi guys,

Assume that i have a listview with thousand of items..

What i want to do is let the Listview control auto scroll down to the selected item. (Make the listview scroll down itself so i can 'see' the selected item.)

Here is the code:

Private Const WM_VSCROLL = &H115
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Command1_Click()
    Dim i As Long
    i = SendMessage(ListView1.hwnd, WM_VSCROLL, 0, ByVal CLng(Text1.Text))
End Sub

Private Sub Form_Load()
    For i = 1 To 250
        ListView1.ListItems.Add i, , i
        ListView1.ListItems(i).SubItems(1) = "Subitem " & i
    Next i
    Text1.Text = "25"
    Randomize
    Dim j As Long
    j = Int(Rnd * ListView1.ListItems.Count) + 1
    ListView1.ListItems(j).Selected = True
End Sub

What is less in this code above? What params should i use in SendMessage to do the tricks?

Reference: http://www.mvps.org/vbnet/code/subclass/lvscrollbars.htm

Any comments, resources or links? Thanks.