Problema: Object was unloaded

[Marea2]

Hola a todos:

Mi problema es el siguiente, Tengo una alicacion compuesta por dos fomularios, cuando el Form1 carga el Form2 todo va bien pero al cerrar el Form2 y volver al Form 1 me da un error : Object was unloaded.

Aqui el código:

Codigo Form 1:

Private Sub Timer1_Timer() ' El intervalo es de 3000
If Text1.Text = "" Then
MsgBox "No has escrito nada"
Else
Load Form2
Form2.Show
End If
End Sub


Codigo Form2:

Private Sub Form_Load()
MsgBox " Has escrito alguna cosa"
Unload Me
End Sub

El error me lo da en el "Load Form2" de el Form1.

Muchas gracias

[David]

Intenta quitándole el Load y solamente colocando Form2.Show.
Además quizás tengas que poner Interval 0 después de la primera ejecución para que no ejecute vez tras vez.

[Marea2]

He quitado el Load y me dice lo mismo. Igualmente muchas gracias.

[David]

Quizás debas quitar el Unload del evento Load del Form2, intenta colocarlo en el evento Activate().

[Marea2]

Era esto muchas gracias