Option ExplicitDim ColOfForms As New CollectionPrivate Sub cmdLoadButton_Click()Dim f As Form Set f = ColOfForms.Item(txtFormName.Text) f.Show 1, MeEnd SubPrivate Sub Form_Load() ColOfForms.Add Form1, Form1.Name ColOfForms.Add Form2, Form2.NameEnd Sub