Add

用于增加页面。
如果增加成功，则返回增加的页面。

语法：

Add(Name, Text)
Add(Name, Text, ImageFile)

Name:  页面名称
Text:  页面标题
ImageFile: 页面显示的图标文件，如果事先复制到项目文件的Images子目录下，则无需路径，否则必须包括路径。

With Forms("窗口1").Controls("TopicBar1").Pages
    .Add("Project","项目","1601.ico")
    .Add("Plan","计划","1602.ico")
End With