分类：电脑/网络-程序设计
问题：vb,调试属性页时候提示错误438对象不支持该属性或方法,求高手? 
提示错误是这句For t1 = 1 To .tabs下面是全部,是制作用户控件属性页的.Option ExplicitDim tSettingUp As BooleanPrivate Sub cmbCaptions_Click()    tSettingUp = True    txtCaption.Text = cmbCaptions.Text    txtCaption.SelStart = 0    txtCaption.SelLength = Len(txtCaption.Text)    tSett提示错误是这句For t1 = 1 To .tabs下面是全部,是制作用户控件属性页的.Option ExplicitDim tSettingUp As BooleanPrivate Sub cmbCaptions_Click()    tSettingUp = True    txtCaption.Text = cmbCaptions.Text    txtCaption.SelStart = 0    txtCaption.SelLength = Len(txtCaption.Text)    tSettingUp = FalseEnd SubPrivate Sub cmd_Click(Index As Integer)    Dim t1 As Long, tmp$        With cmbCaptions        Select Case Index        Case 0      'Down            If .ListIndex < .ListCount - 1 Then                tmp = .List(.ListIndex)                .List(.ListIndex) = .List(.ListIndex + 1)                .List(.ListIndex + 1) = tmp                .ListIndex = .ListIndex + 1                Changed = True            End If                Case 1  'Up            If .ListIndex > 0 Then                tmp = .List(.ListIndex)                .List(.ListIndex) = .List(.ListIndex - 1)                .List(.ListIndex - 1) = tmp                .ListIndex = .ListIndex - 1                Changed = True            End If                        Case 2      'Add            .AddItem "", .ListIndex + 1            .ListIndex = .ListIndex + 1            Changed = True                Case 3      'Delete            If .ListCount > 1 Then                t1 = .ListIndex                .RemoveItem .ListIndex                .ListIndex = IIf(t1 >= .ListCount, .ListCount - 1, t1)                cmbCaptions_Click                Changed = True            End If        End Select    End WithEnd SubPrivate Sub txtCaption_Change()    If Not tSettingUp Then        cmbCaptions.List(cmbCaptions.ListIndex) = txtCaption.Text        Changed = True    End IfEnd SubPrivate Sub PropertyPage_ApplyChanges()    Dim t1 As Integer    With SelectedControls.Item(0)        .TabSwitch = cmbCaptions.ListCount        For t1 = 1 To .tabs            .Caption(t1) = cmbCaptions.List(t1 - 1)        Next t1    End WithEnd SubPrivate Sub PropertyPage_SelectionChanged()    Dim t1 As Integer    tSettingUp = True    With SelectedControls.Item(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
回答：要在里面添加一些对象。
Private Sub cmbCaptions_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)