Dim frm as FormDim NombreFormulario as stringNombreFormulario = "Form1"set frm = Forms.add(NombreFormulario)frm.showset frm = nothing