Plantear variable

[pkj]

Código vb:

Private Sub Form_Load()
' No se puede detectar un formulario que no se haya cargado.
' Para que esto funcione todos los formularios deben
' estar ya cargados, aunque esten ocultos.
  'ejemplo:
  Load Form2
  Form2.Hide
End Sub
 
Private Sub Command1_Click(Index As Integer)
  Dim formu As Form
  For Each formu In Forms
    If formu.Name = "Form" & Index Then
      formu.Show
      formu.Left = Me.Left
      formu.Top = Me.Top
      Exit For
    End If
  Next formu
End Sub