Public frmRoot As Form
Public frmMe As Form
Public frmMDIForm As MDIForm
 
Public Sub LoadMyForm()
    Set frmMe = New frmMain
    MsgBox (frmRoot.Name)
    MsgBox (frmMDIForm.Name)
End Sub

Private Sub Main()
    Dim frm As New Form2
    Dim frmDLL As New FirstDLLTest.FormStart
    Dim frmExt As Form
    Dim frmMDI As MDIForm
 
    Set frmDLL.frmRoot = New Form2        
    Set frmDLL.frmMDIForm = MDIForm1
 
    frmDLL.LoadMyForm
    frmDLL.frmMDIForm.Show
    MsgBox (frmDLL.frmMe.Name)
    Set frmExt = frmDLL.frmMe
End Sub