SSTab怎么动态增加一页

SSTab如何动态增加一页
我现在有一个SSTab有一个页，但程序要实现的是动态的增加一页，在新增的页中放置动态生成的结果。我查了一下没有发现增页的方法，请问有什么方法做到对SSTab动态增页或有什么控件有这个功能。

[解决办法]
Private Sub Command1_Click()
SSTab1.Tabs = SSTab1.Tabs + 1
End Sub