últimos mensajes de: jdonzet

ACA TENGO LA SOLUCION CREO QUE TE VA A SERVIR

ESTE CODIGO GENERA N FORMULARIOS IDENTICOS A UNO YA CREADO, CON LOS MISMOS CONTROLES CODIGO Y TODO.

ESTE PROYECTO CONSTA DE 2 FORMULARIOS UNO EN EL CUAL SE ENCUENTRA UN BOTON QUE AL PRESIONARSE COMIENZA A GENERAR FORMULARIOS.
-- Y OTRO QUE ES EL QUE SE TOMA COMO REFERENCIA

ACA TE DEJO EL CODIGO DE LOS 2 FORMs

primer form

Código:


Dim CONTA As Integer
Private Sub Command1_Click()
Dim S As Integer
For S = 1 To 40
    Call NUEVOS
Next S
Form1.Top = Int((8100 + 1) * Rnd + 1)
Form1.Left = Int((10515 + 1) * Rnd + 1)
End Sub

Private Sub NUEVOS()
CONTA = CONTA + 1
Dim nf As New Form2
nf.Show
nf.Top = Int((8100 + 1) * Rnd + 1)
nf.Left = Int((10515 + 1) * Rnd + 1)
nf.Caption = nf.Caption & CONTA
End Sub

Private Sub Form_Load()
Form1.Caption = Date & " - " & Time
CONTA = 0
End Sub

Private Sub Form_Unload(Cancel As Integer)
Cancel = True
End Sub

segundo form

Código:

Private Sub Command1_Click()
unload me
End Sub

el segundo form tiene un command que cierra ese form

TAMBIEN ME TOME EL TRABAJO DE SUBIR EL PROYECTO:

http://www.megaupload.com/?d=YH55XM8J

ESPERO QUE TE SIRVA A VOS Y A TODOS

SALUDOS

--Modificación: Corregido el Link