正在制作用户控件属性页，出现了异常，求解决

正在制作用户控件属性页，出现了错误，求解决
提示错误是这句For t1 = 1 To .Tabs，实时错误438。对象不支持该属性或方法。
这几天才接触这些，希望高手详细点解答，谢谢

Private Sub PropertyPage_SelectionChanged()

    Dim t1 As Integer

    tSettingUp = True

    With SelectedControls(0)

        cmbCaptions.Clear

        For t1 = 1 To .Tabs

            cmbCaptions.AddItem .Caption(t1)

        Next t1

        cmbCaptions.ListIndex = 0

        cmbCaptions_Click

    End With

    tSettingUp = False

    Refresh

End Sub

------解决方案--------------------
顶上
不 要沉
------解决方案--------------------
该回复于2011-05-17 14:46:21被版主删除
------解决方案--------------------
.Tabs.Count() ' ？

------解决方案--------------------

引用:

.Tabs.Count() ' ？

不是哦。

错误还是这句。

这里应该写那个呢For t1 = 1 To .Tabs
1 To ***写那个呢