Class Delegate #name#
	Inherits System.DelegateBase

Public
	Sub Callback()
	End Sub
	Sub Callback( sd As System._SimpleDelegate )
		Add( sd )
	End Sub
	Sub Call(#params#)
		Dim i As Long
		For i = 0 To ELM(simpleDelegates.Count)
			Dim sd = simpleDelegates[i]
			__call sd.methodPtr, sd.object, #params#
		Next
	End Sub
End Class