I'm trying to write a common function which sets the caption property of label arrays.

eg
On my form, I have label1(0) and label(1) and want to set the caption with 'Caption1' and 'Caption2' respectively with the following function call:

SetCaption Label1, "Caption1", "Caption2"

So how can I declare the function?

Public Sub SetCaption(LabelCtrl as ???, ParamArray Data() as Variant)

for i = 0 to ubound(data)
LabelCtrl(i).Caption = data(i)
next
End Sub

TIA
Carolyn