Hola! Que codigo he de utilizar para que al ejecutar, se me vaya llenando el escritorio de formularios, y que lo hagan aleatoriamente
Private Sub Command1_Click()
Dim xForm As Form
Set xForm = New Form1
xForm.Show
End Sub
No creo que te sea muy complicado convertir eso en un bucle verdad?
Saludos!
;D Perfecto!
Muchas gracias amigo ;D
Joe >:( tu code no lo entendi!
Voy a empezar desde el principio. Tengo este codigo:
CitarPrivate Sub Command1_Click()
DimError Frm(1 To 5) As NewError Form1
For i = 1 To 5
FrmError(i).Show
DoEventsError
NextError
End Sub
Le he puesto unos fallos para que no pegen y copien Que a si no se aprende nunca nada...
Pues ese codigo las abre pero no me tapan el escritorio creo que tiene que ver con las coordenadas X / Y
¿Que le faltaria al codigo?
Podrias moverlas con un poco de numeros aleatorios dentro del bucle :)
Cita de: COMANDOSOFT en 10 Junio 2009, 20:25 PM
Joe >:( tu code no lo entendi!
Voy a empezar desde el principio. Tengo este codigo:
CitarPrivate Sub Command1_Click()
DimError Frm(1 To 5) As NewError Form1
For i = 1 To 5
FrmError(i).Show
DoEventsError
NextError
End Sub
Le he puesto unos fallos para que no pegen y copien Que a si no se aprende nunca nada...
Pues ese codigo las abre pero no me tapan el escritorio creo que tiene que ver con las coordenadas X / Y
¿Que le faltaria al codigo?
TOP =rnd(1)* screen.wi... (Coord Y)
LEFT =rnd(1)* screen.wi... (Coord X)