Задача на перестановку элементов массива - VB

Формулировка задачи:

Задача: дан двумерный массив W из 16 элементов. Поменять элементы, стоящие на диагоналях местами. Выбивает ошибку №381 "Subscript out of range" , не понимаю в чем проблема. Нужна помощь в редактировании кода! Заранее спасибо.

Private Sub Command1_Click()
Dim w(0 To 4, 0 To 4) As Integer, i As Integer, j As Integer, tmp
Randomize
For i = 0 To 3
For j = 0 To 3
w(i, j) = Rnd * 16
MSFlexGrid1.TextMatrix(i, j) = w(i, j)
Next j
Next i
End Sub

Private Sub Command2_Click()
Dim w(0 To 4, 0 To 4) As Integer, n As Integer, i As Integer, j As Integer, tmp
For i = 1 To 4
For j = 1 To 4
For n = 3 To -3 Step -2
tmp = w(i, j): w(i, j) = w(i, j + n): w(i, j + n) = tmp
MSFlexGrid1.TextMatrix(i, j + n) = w(i, j)
Next n
Next j
Next i

End Sub
 
Private Sub Command3_Click()
End
End Sub

Решение задачи: «Задача на перестановку элементов массива»

textual
                            Листинг программы 
                        

                            Dim w(0 To 4, 0 To 4)
For j = 1 To 4
For n = 3 To -3 Step -2
 w(i, j) = w(i, j + n)
                        