VBA垂直滚动条拇指大小

Question

我有一个表单，其中动态创建控件，包含滚动条，带

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

但是我很难调整大小或更改除最小值以外的滚动条拇指大小，它似乎没有调整大小的事件或函数。

我也尝试过使用

Userform1.ScrollBars = fmScrollBarsVertical

但我无法将其移动到表单的任何位置，因为我需要将所述滚动条略微偏离表单的中心。