Ocultar formulario principal

[erbuson]

Si quieres probar esto, puede funcionar.

He creado un MDI con 4 botones y cuatro Formularios, antes de cargar un formulario, descargo los que tenga cargados. Esto es facilmente condicionable.

Option Explicit

Private Sub Command1_Click(Index As Integer)
Descargar
Select Case Index
Case 0: Form1.Show
Case 1: Form2.Show
Case 2: Form3.Show
Case 3: Form4.Show
End Select
End Sub


Private Sub Descargar()
Dim f As Form
For Each f In Forms
' No he cambiado la propiedad Name para simplificar
If f.Name <> "MDIForm1" Then Unload f
Next
End Sub

Saludos