Закрасить диагонали от выбранного элемента - VB

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

Дан двумерный массив 10х10. Указав строку и столбец элемента, нужно найти сам элемент.Это я сделала. А вот дальше от этого элемента нужно провести две диагонали вниз, закрасить их и все, что находится ниже. И это вызвало у меня затруднения. Помогите, пожалуйста.

For i = 0 To 99
b(i) = Round(Rnd * 1000, 0)
 
Next
For i = 0 To 9
For j = 0 To 9
a(i, j) = b(j + i * 10)
txta(j + i * 10).Text = b(j + i * 10)
Next
Next
txta((Val(Text1.Text) - 1) * 10 + (Val(Text2.Text) - 1)).BackColor = RGB(30, 125, 53)

Решение задачи: «Закрасить диагонали от выбранного элемента»

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

                            For i = 0 To 99
b(i) = Round(Rnd * 1000, 0)
 
Next
For i = 0 To 9
  For j = 0 To 9
    a(i, j) = b(j + i * 10)
    txta(j + i * 10).Text = b(j + i * 10)
  Next
Next
 
jl=Val(Text2.Text) - 1
jr=Val(Text2.Text) - 1
for i=Val(Text1.Text-1)to 9
  if jl>=0then txta(i * 10 + jl).BackColor = RGB(30, 125, 53)
  if jr<=9then txta(i * 10 + jr).BackColor = RGB(30, 125, 53)
  jl=jl-1
  jr=jr+1
next i
                        