怎么用CommandButton按钮控制listbox的滚动条滚动

如何用CommandButton按钮控制listbox的滚动条滚动?
点击按钮,listbox就滚动几下或以下

[解决办法]
错了，

sendmessage list1.hwnd,lb_settopindex,byval sendmessage(list1.hwnd,lb_gettopindex,byval 0&,byval 0&) +20,byval 0&
[解决办法]

如需要阅读该回复，请登录或注册CSDN!

VB code

Private Sub Command1_Click()    List1.TopIndex = List1.TopIndex + 20End Sub