type VBABase = class
public
	function Create(_parent: tslobj; _application: Application; _creator: integer);

public
	property Application read ReadApplication;
	property Parent read ReadParent;
	property Creator read ReadCreator;
	function ReadApplication();
	function ReadParent();
	function ReadCreator();

private
	[weakref]parent_: tslobj;
	[weakref]application_: Application;
	creator_: integer;
end;

// ============== 实现 ================= //
function VBABase.Create(_parent: tslobj; _application: Application; _creator: integer);
begin
	parent_ := _parent;
	application_ := _application;
	creator_ := _creator;
end;

// properties
function VBABase.ReadApplication();
begin
	return application_;
end;

function VBABase.ReadParent();
begin
	return parent_;
end;

function VBABase.ReadCreator();
begin
	return creator_;
end;