Visual Basic

Помогите,пожалуйста, с информатикой. (11 класс)
Нам дана матрица A и вектор строка C.
Мы вводим значение k - номер строки в матрице A.
Нам нужно вставить вектор строку С на место строки k, а все строки,начиная с k,нужно сдвинуть на одну позицию вниз. То есть в новой матрице получится на одну строчку больше, чем в исходной.

Вот мой неработающий код:Dim A(11, 10)
Dim C(10)
k = Val(Text1.Text)
For i = 1 To 10
For j = 1 To 10
A(i, j) = Fix(Rnd * 100)
Picture1.Print A(i, j);
Next j
Picture1.Print
Next i
For j = 1 To 10
C(j) = Fix(Rnd * 100)
Picture2.Print C(j)
Next j
For i = k To 11
For j = 1 To 10
A(i, j) = A(i - 1, j)
Next j
Next i
For j = 1 To 10
A(k, j) = C(j)
Next j
For i = 1 To 11
For j = 1 To 10
Picture3.Print A(i, j);
Next j
Picture3.Print
Next i


вроде строка С включается, но после неё идут не сдвинутые строки, а продублированная предыдущая...

помогите!! до сегодняшнего вечера
заранее спасибо)