怎么让滚动条(ScrollBar)的拉块变大

如何让滚动条(ScrollBar)的拉块变大?
自己尝试做了个控件,然后放了HScrollBar和VScrollBar自己实现滚动效果
但是不知道如何是滚动条的拉块变大

就好象WindowsXP的ListView一样,而不是默认那种只有一个小块的

还请高手告知

使用API的SetScrollInfo没有效果啊

[解决办法]
运行，看一下滑块：

VB code

Private Sub Form_Load()HScroll1.Min = 0HScroll1.Max = 5End Sub