Excel OLEObject Control

[neolithos]

Ich hab ein Excel-Blatt, welches ich leicht erweitert habe.

Der Programm-Code für die Erweiterung steht in einer ActiveX-Dll.

Mein Problem:
Ich brauche von einer ListBox das Erreignis LostFocus, welches in
Excel.OLEObject declariert wurde.

Damit ich das OLE-Object erhalte suche nach dem mit der Folgenden
Function.

Code:

Public Function FindOleObject(ByVal wks As Worksheet, ByVal aCtrl As Object) As Excel.OLEObject
' sucht zu diesem Excel-Control das dazugehörige OLE-Object
Dim oOLE As Excel.OLEObject
Dim I As Integer
    For I = 1 To wks.OLEObjects.Count
        Set oOLE = wks.OLEObjects(I)
        If oOLE.Name = aCtrl.Name Then
            Set FindOleObject = oOLE
            Exit Function
        End If
    Next
    Err.Raise 10000, "FindOleObject", "Zum Control konnte keine OLEObject zugeordnet werden..."
End Function

Dies Funktioniert ervoragend...

Aber:

Code:

Private WithEvents lstO as Excel.OLEObject

   set lstO = FindOleObject(worksheet, lstSaBe)

bei dieser Zuweisung erhalte ich den Fehler:
Objekt oder Klasse unterstützt diese Ereignismenge nicht.