Народ, подскажите плз как заменить в vb6 главную и обратную диагонали матрицы v(5,5) еденицами. У меня получается, что я меняю первый с последним столбцы.

Private Sub Form_Load()
ReDim v(ncols, nrows)
MSFlexGrid1.Rows = nrows + 1
MSFlexGrid1.Cols = ncols + 1
MSFlexGrid2.Rows = nrows + 1
MSFlexGrid2.Cols = ncols + 1
For j = 1 To nrows
MSFlexGrid1.Col = 0
MSFlexGrid1.Row = j
MSFlexGrid1.Text = j
MSFlexGrid2.Col = 0
MSFlexGrid2.Row = j
MSFlexGrid2.Text = j
For i = 1 To ncols
MSFlexGrid1.Col = i
MSFlexGrid1.Row = 0
MSFlexGrid1.Text = i
MSFlexGrid2.Col = i
MSFlexGrid2.Row = 0
MSFlexGrid2.Text = i
v(i, j) = Rnd * 30 - 20
MSFlexGrid1.Col = i
MSFlexGrid1.Row = j
MSFlexGrid1.Text = v(i, j)
MSFlexGrid2.Col = i
MSFlexGrid2.Row = j
MSFlexGrid2.Text = v(i, j)
Next i
Next j

For i = 1 To nrows
MSFlexGrid2.Col = 1
MSFlexGrid2.Row = i
tm1 = MSFlexGrid2.Text
MSFlexGrid2.Col = ncols
tm2 = MSFlexGrid2.Text
MSFlexGrid2.Text = tm1
MSFlexGrid2.Col = 1
MSFlexGrid2.Text = tm2
Next i
End Sub
Заранее спасибо

=(((

Огромное спасибо =)