Issues with label array

I have an array of labels, which will get information from different arrays, depending on which one is selected. I need to assign one of these sets of arrays to a certain label which is in the array. Below is a quick example of the issue:

Private Sub Command2_Click()
Tada Label2, 0
End Sub

Private Function Tada(Name As Label, Tes As Integer)
Name(Tes).Caption = Tes
End Function

This will not allow you to enter the line: Name(Tes).Caption = Tes, However, if you enter Form1.Name(Tes).Caption = Tes it will allow you to enter, but still not work.

If anyone has any suggestions on how to get this to work, i would very much appreciated it

This is with using VB6

One of these. The issue you have is that the parameter Name is a label control that should include the index too. It is not a control name; but an actual control. That's what is expected

1. This way

Code:

---

Private Sub Command2_Click()
Tada Label2(0), 0
End Sub

Private Function Tada(Name As Label, Tes As Integer)
Name.Caption = Tes
End Function

---

2. Or this way

Code:

---

Private Sub Command2_Click()
Tada "Label2", 0
End Sub

Private Function Tada(Name As String, Tes As Integer)
Me.Controls(Name)(Tes).Caption = Tes
End Function

---