Option Explicit
 
Public Event Click()
 
Private WithEvents m_Button As CommandButton
 
Public Function Init(ByRef rForm As Object) As Boolean
 
  On Error Resume Next
 
  Init = False
 
  If Not TypeOf rForm Is Form Then Exit Function
 
  rForm.Controls.Add "VB.CommandButton", "cmdButton"
 
  Set m_Button = rForm.Controls("cmdButton")
 
  If m_Button Is Nothing Then Exit Function
 
  With m_Button
    .Top = 500
    .Left = 500
    .Caption = "NEU"
    .Visible = True
  End With
 
  Init = True
 
End Function
 
Private Sub m_Button_Click()
 
  RaiseEvent Click
 
End Sub

Option Explicit
 
Private WithEvents m_o As CDll
 
Private Sub Form_Load()
 
  Set m_o = New CDll
 
  m_o.Init Me
 
End Sub
 
Private Sub m_o_Click()
 
  MsgBox "Click"
 
End Sub

Gruß
Dirk

--
?Get it right the first time