求助！控件数组问题。。

兄弟姐妹们，帮我看看这个程序哪里出错啦！
Private Sub Command1_Click(Index As Integer)
Timer1.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
End Sub

Private Sub Command2_Click(Index As Integer)
Timer1.Enabled = False
Command1.Enabled = True
Command2.Enabled = False
Command1.Enabled = True
Text1.Text = Label2.Caption + "" + Label3.Caption + "" + Label4.Caption + "" + Label5.Caption
End Sub

Private Sub Command3_Click(Index As Integer)
End
End Sub

Private Sub Form_Load()
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
Randomize
Label2.Caption = Fix(Rnd * 90) + 10
Label3.Caption = Fix(Rnd * 90) + 10
Label4.Caption = Fix(Rnd * 90) + 10
Label5.Caption = Fix(Rnd * 90) + 10
End Sub