se interessasse a qualcuno... ho risolto da solo in questa maniera...

For i = 1 To rs("numero")
Load Label1(i)
With Label1(i)
.Caption = "PDA 0" & i
.Move 50, 50 + b, 600, 400
.Visible = True
End With

Load Text1(i)
With Text1(i)
.Visible = True
.Move 150, 150 + a, 3000, 400
.Text = "CIAO" & " " & i
End With
a = a + 500
b = b + 500
Next

ovviamente nel form c'è un opggetto text1 non visibile e ocn index = a 0 . stessa cosa per la label.


ciao