Option Explicit
'das an die hauptanwendung zu übergebende ereignis
Public Event KOpenB()
'die klasse in der die form instanziert wird
Private WithEvents cKasse As clsForms
 
'wird in der hauptanwendung aufgerufen
Public Sub sKasse(ByVal sDatPhad As String, ByVal sIniPhad As String, ByVal _
  sDatenDat As String, cn_SD As ADODB.Connection) 
On Error GoTo Err_sKasse
 
'div. pfadangaben  aus der hauptanwendung
thZkAppPath = sDatPhad
pStrDatenDatZk = sDatenDat
 
'connection aus der hauptanwendung übernehmen
Set cn = cn_SD
 
'hier wird die form-classe instanziert und die form-instanz geöffnet
Set cKasse = New clsForms
cKasse.Start
 
Exit Sub
 
Err_sKasse:
err.clear
End Sub
 
'das ereignis aus der form-klasse wird in die dll-klasse übergeben und löst das 
' ereignis in dieser aus
Private Sub cKasse_KOpen()
    RaiseEvent KOpenB
End Sub

Option Explicit
 
Public WithEvents frmKasseI As Form
Public Event KOpen()
 
'form öffnen
Public Sub Start()
    frmKasseI.Show
End Sub
 
'instanz der form erstellen
Private Sub Class_Initialize()
    Set frmKasseI = New mdiKasse
End Sub
 
'ereignis beim öffnen der form
Private Sub frmKasseI_Load()
    RaiseEvent KOpen
End Sub

bis später
Tomy