Namespace System

Class _SimpleDelegate
Public
	object As Object
	methodPtr As VoidPtr

	Sub _SimpleDelegate( object As Object, methodPtr As VoidPtr )
		This.object = object
		This.methodPtr = methodPtr
	End Sub
End Class

Class DelegateBase
Protected
	simpleDelegates As System.Collections.Generic.List<_SimpleDelegate>

Public
	Sub DelegateBase()
		simpleDelegates = New System.Collections.Generic.List<_SimpleDelegate>()
	End Sub
	Sub Add( sd As System._SimpleDelegate )
		simpleDelegates.Add( sd )
	End Sub
Public
End Class


End Namespace