VB 中如何给listview控件定义或设置垂直滚动条(水平滚动条不要)

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 Const WM_VSCROLL = &H115
Private Sub Command1_Click()
Call ItemToTop(ListView1.hwnd, 30)
End Sub

Private Sub Form_Load()
Dim i As Long

For i = 1 To 100
ListView1.AddItem "List Item Of Line:" & i
Next i
End Sub

Private Sub ItemToTop(ByVal hwnd As Long, ByVal LineNum As Long)
'本子程序使LineNum行滚到第一行
Dim i As Long
SendMessage hwnd, WM_VSCROLL, 6, 0 '复原
For i = 1 To LineNum - 1