窗体上放20个Text1，20个Text2控件数组，按钮1、2分别用来检测text中是否为空，一个时钟控件Timer1
我需要不管按钮1还是按钮2都能触发时钟控件Timer1，时钟控件需要按钮1、2分别把检测到有问题的控件显示出来。但是这个变量好像不对，大神们帮看看这个是哪边的问题。
Dim Ctt As TextBox
Private Sub Command1_Click()'==============Text1的检测过程
Dim i As Integer
    For i = Text1.LBound To Text1.UBound   '-text1是控件数组
        On Error Resume Next '循环出错就退出本次循环进入下次循环
        If Text1(i).Text = "" Then  '判断文本框内容
           Timer1.Enabled = True  '时钟控件启动
           Text1(i).SetFocus  '控件获得焦点
           Ctt = Text1(i)'将当前控件赋值给变量*********************（好像这个赋值有问题）
           Exit Sub'退出
        End If
    Next
End Sub
Private Sub Command2_Click()'===============Text2的检测过程
Dim i As Integer
    For i = Text2.LBound To Text1.UBound   '-text1是控件数组
        On Error Resume Next '循环出错就退出本次循环进入下次循环
        If Text2(i).Text = "" Then  '判断文本框内容
           Timer1.Enabled = True  '时钟控件启动
           Text2(i).SetFocus  '控件获得焦点
           Ctt = Text2(i)'将当前控件赋值给变量*********************（好像这个赋值有问题）
           Exit Sub'退出
        End If
    Next
End Sub
Private Sub Timer1_Timer()  '---------时钟红白闪烁5次结束，1秒2次
    If Tcc = 5 Then
       Ctt.BackColor = &H80000005
       Tcc = 0
       Timer1.Enabled = False
    Else
       If Ctt.BackColor = &H80FF& Then
          Ctt.BackColor = &H80000005
         Else
           If Ctt.BackColor = &H80000005 Then
              Ctt.BackColor = &H80FF&
           End If
       End If
    End If
    Tcc = Tcc + 1
End Sub

对象的赋值用set语句
set Ctt = Text1(i)