遍历sstab控件元素时Container.Name出错

在网上查了一遍历sstab控件元素的代码：
Dim a 
For Each a In Controls 
  If a.Container.Name = "SSTab1 " Then '提示这一行出错。
  msgbox a.name
  End If 
Next 
但在我的VB里无法运行，提示：a.Container.Name 对象不支持该属性或方法。
请问，这个Container是要用到什么部件或是引用吗？还是别的什么原因？还是我的VB6版本不对？

If a.Container Is SSTab Then

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~