Option Explicit
Dim WithEvents objExt As VBControlExtender ' Variable VBControlExtender mit 
' WithEvents deklarieren
 
Private Sub LoadControl()
   Licenses.Add "Project1.Control1", "ewrinvcmcoe"
   Set objExt = Controls.Add("Project1.Control1", "myCtl")
   objExt.Visible = True ' Das Steuerelement ist standardmäßig unsichtbar.
End Sub
 
Private Sub extObj_ObjectEvent(Info As EventInfo)
   ' Programmieren der Ereignisse des Steuerelements mit Select Case.
   Select Case Info.Name
   Case "Click"
      ' Click-Ereignis wird hier behandelt.
   ' Andere Fälle erscheinen hier
   Case Else ' Unbekanntes Ereignis
      ' Unbekannte Ereignisse werden hier behandelt.
   End Select
End Sub