VBA垂直滚动条拇指大小

我有一个窗体，dynamic创build控件，包含滚动条

Set theScroll = UserForm1.Controls.Add("Forms.ScrollBar.1", "sc1", True) 

但我很难resize或更改除最小值以外的滚动条大小，它似乎没有resize的事件或function。

我也试过使用

 Userform1.ScrollBars = fmScrollBarsVertical 

但是我不能在表单的任何位置移动它，因为我需要将上述滚动条略微偏离表单的中心。