' This module is in a public procedure.
Public Sub FileNew()
   Dim Form1 As New Form2
   form2.Show
End Sub

' The user chooses New on the child form File menu.
Private Sub mnuchildFileNew_Click()
   FileNew
End Sub

' The user chooses New on the MDI form File menu.
Private Sub mnumdiFileNew_Click()
   Form1.FileNew
End Sub

' The user clicks the File New button on the toolbar.
Private Sub btnFileNew_Click()
   Form2.FileNew
End Sub

Declare Function SetParent Lib "user32" Alias "SetParent" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long