Выбивает ошибку - VB - Ответ 8434453

Private Sub Command1_Click()
start
End Sub
 
Private Sub Command2_Click()
End
End Sub
 
Private Sub Command3_Click()
Dim x() As Double
ReDim x(25 + 18)
Dim y() As Double
ReDim y(25 + 18)
 
k = 25 + 18
y_sum = 0
x_sum = 0
x_sqr_sum = 0
 
For i = 1 To k
    x(i) = (-1) ^ i * CInt(Rnd * 10000) / 100
    x_sum = x_sum + x(i)
    x_sqr_sum = x_sqr_sum + x(i) ^ 2
    Grid1.Col = 1
    Grid1.Row = i
    Grid1.Text = Str(x(i))
Next
 
For i = 1 To k
    y(i) = (-1) ^ i * CInt(Rnd * 10000) / 100
    y_sum = y_sum + x(i)
Next
 
Label6.Caption = Str((x_sum * y_sum - k * x_sum * y_sum) / (x_sum - k * x_sqr_sum))
Label7.Caption = Str((1 / k) * (y_sum - x_sum))
 
For i = 1 To k
    Grid1.Col = 1
    Grid1.Row = i
    Grid1.Text = x(i)
    Grid1.Col = 2
    Grid1.Row = i
    Grid1.Text = y(i)
Next
End Sub
 
Private Sub Command4_Click()
With Animation1
.AutoPlay = True
.Open "clock.avi"
End With
End Sub
 
Private Sub Command5_Click()
End
End Sub
 
Private Sub Command6_Click()
End
End Sub
 
Private Sub Form_Load()
Old_Ind = 1
Frame1(1).Visible = True
Frame1(2).Visible = False
Frame1(3).Visible = False
Grid1.Rows = 25 + 18 + 1
Grid1.Cols = 3
Grid1.Col = 0
Grid1.Row = 0
Grid1.Text = "i"
Grid1.Col = 1
Grid1.Row = 0
Grid1.Text = "a"
Grid1.Col = 2
Grid1.Row = 0
Grid1.Text = "b"
For i = 1 To 25 + 18
    Grid1.Col = 0
    Grid1.Row = i
    Grid1.Text = i
Next
End Sub
Private Sub TabStrip1_Click()
'a = MsgBox("old_ind=" + Str(Old_Ind))
If Old_Ind = TabStrip1.SelectedItem.Index Then Exit Sub
Frame1(TabStrip1.SelectedItem.Index).Visible = True
Frame1(Old_Ind).Visible = False
Old_Ind = TabStrip1.SelectedItem.Index
End Sub