estefy, perdona el retraso:
Código:
Private Sub Command1_Click()
Dim num As Integer
Dim formulario() As Form
ReDim formulario(Text1.Text - 1)
For num = 0 To Val(Text1.Text - 1)
Set formulario(num) = New form_a_copiar
formulario(num).Show
Next
End Sub
Adáptalo a tu código. Si no entiendes algo me escribes...
Saludos
Pablo