Ver Mensaje Individual
  #5 (permalink)  
Antiguo 15/03/2004, 15:34
Avatar de pabli
pabli
 
Fecha de Ingreso: octubre-2003
Mensajes: 381
Antigüedad: 20 años, 6 meses
Puntos: 0
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