Add方法示例

按照默认，下列示例为工作台添加一个画面。

Application.Documents.Add

下列示例为工作台添加一个Microsoft Word文档。

Application.Documents.Add "Word.Document"

下列示例为Rect1的过程集添加子程序MySub。

Rect1.Procedures.Add 1, "Private Sub MySub(x as integer, y as integer)"

使用直线集，下列示例为Rect1的首个事件的事件处理器中的第五行添加一行代码。

Rect1.Procedures.Item(1).Lines.Add "Msgbox 2", 5

下列示例为FixDataSystemFDS的组添加一个数据组。

FDS.Groups.Add ("DataGroup1")