Access - Creare una nuova maschera a run time

Se qualora si ha la necessità di creare una maschera a run time (programma in esecuzione), il codice riportato di seguito, permette di creare una nuova maschera, salvarla, rinominarla e visualizzarla.

'creo un nuovo form
Dim frmNuova As Form
Set frmNuova = Application.CreateForm()
'variabile per il nome della maschera
Dim StrNomeTabella As String
'imposto la caption
frmNuova.Caption = "Nuova finestra"
'eseguo l'azione
DoCmd.Restore
'salvo la form con il nome che gli è stato assegnato
DoCmd.Save acForm, frmNuova.Name
'ricavo il nome della form salvata
StrNomeTabella = frmNuova.Name
'chiudo la form per poterla rinominare
DoCmd.Close acForm, StrNomeTabella
'rinomino la form
DoCmd.Rename "NuovaMaschera", acForm, StrNomeTabella
'apro la nuova maschera
DoCmd.OpenForm "NuovaMaschera"