یه سوال ساده لطفا کمکم کنید

سلام
یه برنامه می خوام بنویسم که یه ماتریس 4*4 ایجاد کنه و با فشار دادن روی یه دکمه قطر فرعی اون رو برابر با 0 قرار بده
ماتریس رو تونستم تشکیل بدم ولی نمی تونم قطر فرعی اون رو برابر 0 قرار بدم اگه می شه کمکم کنید

ممنون از لطفتون :n01:

ممنون مشکلم حل شد ولی اگه کسی سورسش رو خواست این هم سورسشه :

کد:

---

For i = 1 To 4 'Line 1
    For j = 1 To 4 'Line 2
        intMatris(i, j) = 1 'Line 3
        If i + j = 5 Then intMatris(i, j) = 0 'Line 4
        Print intMatris(i, j); Spc(1); 'Line 5
    Next j 'Line 6
    Print 'Line 7
Next i 'Line 8

---

این برنامه یک ماتریس 4*4 که تمام آرایه های آن 1 می باشد تشکیل میده و اعضای قطر فرعی آن را با صفر مقدار دهی می کند اگه توضیح لازم هست بگید
intMatris رو به این روش حتما باید تعریف کنید

کد:

---

Dim intMatris(1 To 4,1 To 4) as Integer

---

موفق باشید