Public oNewForm As Object
Public Function NewForm()
Set oNewForm = New frmNewForm
 
 
oNewForm.Caption = NewFormCaption
oNewForm.Width = NewFormWidth
oNewForm.Height = NewFormHeight
oNewForm.Left = NewFormLeft
oNewForm.Top = NewFormTop
 
oNewForm.Show
End Function

Dim oForm As Form
 
For Each oForm In VB.Forms
If oForm.Name = "frmNewForm" Then
Unload oForm
End If
Next

Public Function InitNewForm()
Set oNewForm = New frmNewForm
End Function