VB6进度条-重置最大值

我使用Microsoft Common Controls 6.0组件在VB6窗体中设置了一个简单的进度条,似乎一切正常。

但是,我对表单的几个不同部分使用进度条,每个部分使用不同的(和可变的)最大值。当我试图在运行时更改最大值时,在这个条已经被使用过一次之后,我得到了一个错误 Run-time error '380': Invalid Property Value . 在尝试更改最大值之前,进度条的值已重置为最小值。

这些进度条是否不允许在使用后更改其最大值,或者是否缺少一些重置方法?

prgLoading.Min = 1
prgLoading.Max = positions.Count

第二行抛出错误,前面使用的代码完全相同,没有任何问题。