Option Explicit
 
Public m_MyForm As Variant
 
Private Sub Command1_Click()
    If Not m_MyForm Is Nothing Then
        m_MyForm.Show
    Else
        MsgBox "Keine Form gesetzt"
    End If
 
End Sub
 
Public Static Property Get MyForm() As Variant
    MyForm = m_MyForm
End Property
 
Public Static Property Set MyForm(ByRef vNewValue As Variant)
    Set m_MyForm = vNewValue
End Property