[SOLUCIONADO] Plantear variable

[truskyvb]

Buenas,de nuevo pido ayuda.

¿Cómo puedo optimizar el siguiente código?

Código:

Private Sub Command1_Click(Index As Integer)

If Index = 1 Then
Form1.Show
Form1.Left = Me.Left
Form1.Top = Me.Top
ElseIf Index = 2 Then
Form2.Show
Form2.Left = Me.Left
Form2.Top = Me.Top
ElseIf Index = 3 Then
Form3.Show
Form3.Left = Me.Left
Form3.Top = Me.Top
'y así un montón más de formularios
End If

End Sub

Lo he intentado por esta vía y unas cuantas más, pero me da error:

Código:

Dim i as Integer
For i = 1 to 20
Index(i) = Form& (i).show
Next i

Gracias de antemano.
Un saludo

[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
 

[truskyvb]

Gracias de nuevo por la ayuda, pkj.

Un saludo

Edito para modificar:

Abro los Form con:

Dim frmForm
For Each frmForm In Forms
Unload frmForm
Next

pero no sé porqué razón, tengo que enviarles alguna orden para que el código funcione, por ejemplo:

Form2.tag = 1 y así respectivamente con todos los Forms