如何在VBA表单中动态更新标签标题？

我想根据工作表中存储的值动态设置标签数组（在VBA表单中）的标题。到目前为止，我可以这样一个接一个地设置它们：

Label1.Caption = MySheet.Range("A1").Value
Label2.Caption = MySheet.Range("B1").Value
Label3.Caption = MySheet.Range("C1").Value ...

有很多标签遵循循环模式，我想使用更智能的标签，比如：

'Method1
For i = 1 To X
    Dim MyLabel as Object: Set MyLabel = "Label" & i
    MyLabel.Caption = MySheet.Cells(i + 1, i).Value
Next i
'Method2
For i = 1 To X
    Label(i).Caption = MySheet.Cells(i + 1, i).Value
Next I
'Both Methods failed. I really appreciate some feedback on this.

---

使用

控件

对象

For i = 1 To X
    Controls("Label" & i).Caption =  MySheet.Cells(i + 1, i).Value
Next

---

如果要在VBA中使用此选项：

For i = 1 To X
    UserForm1.Controls("Label" & i).Caption =  MySheet.Cells(i + 1, i).Value
Next

---

如果标签不在UserForm内，而是在工作表上，是否也可以这样做？工作表上有哪些控件？表单控件还是activex控件？你可能想发布一个新问题，这样它不仅可以帮助你，也可以帮助未来的访问者？