ListView

[The Hobo]

How to make a ListView scroll...why doesn't this work?

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
 
Const SB_LINEDOWN = 1
Const SB_LINEUP = 0
Const SB_PAGEDOWN = 3
Const WM_VSCROLL = &H2E
 
Private Sub Command1_Click()
  SendMessage ListView1.hwnd, WM_VSCROLL, SB_LINEDOWN, 0&
End Sub