Código (vb) [Seleccionar]
Private Sub Command1_Click()
Dim vForm As Form
Set vForm = Forms.Add("form2")
vForm.Show
End Sub
con CallByName:
Código (vb) [Seleccionar]
Private Sub Command1_Click()
Dim vNombreForm As String
Dim vForm As Form
vNombreForm = "Form2"
Set vForm = CallByName(Forms, "Add", VbMethod, vNombreForm)
vForm.Show
End Sub