Dim myListener As Object=someObject.CreateEventFromUI("x.y.interface","myEvents",False)
someObject.RunMethod("addListener",Array As Object(myListener))
Sub myEvents_Event(MethodName As String,Args() As Object)
Select MethodName
Case "error"
'show dialog
End Select
End Sub