Option Explicit
 
' Private Membervariable
Private m_Dlg   As Form
 
' Konstruktor
Private Sub Class_Initialize()
    Set m_Dlg = New frmMitarbeiter
End Sub
 
' Destruktor
Private Sub Class_Terminate()
    Set m_Dlg = Nothing
End Sub
 
' öffentliche Methode Show()
Public Sub Show()
    Call m_Dlg.Show(vbModal)
End Sub

Private Sub Main()
    Dim f As ActiveXServer.clsMitarbeiter
 
    Set f = New ActiveXServer.clsMitarbeiter
 
    f.Show
 
    Set f = Nothing
End Sub

-----------------
MfG GeiseL