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