excel - VBA垂直滚动条拇指大小

Question

我有一个动态创建控件的表单，包括滚动条，

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

但除了最小值之外，我在调整或更改滚动条拇指大小时遇到​​困难，它似乎没有调整大小的事件或函数。

我也尝试过使用

Userform1.ScrollBars = fmScrollBarsVertical

但我不能在表单周围的任何地方移动它，因为我需要让所述滚动条稍微偏离表单的中心。