Public oNewForm As Object
Public Function NewForm()
Set oNewForm = New frmNewForm
 
oNewForm.Caption = NewFormCaption
oNewForm.Show
oNewForm.Label1.Caption = oNewForm.Name
End Function

For Each oNewForm in VB.Forms
Unload oNewForm
Next