[boudyonline]

هذا كود صغير حاول تجربته

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim i, j As Integer
       Dim strArr(1, 2) As String

       strArr(0, 0) = "First (0,0)"
       strArr(0, 1) = "Second (0,1)"

       strArr(1, 0) = "Third (1,0)"
       strArr(1, 1) = "Fourth (1,1)"

       For i = 0 To strArr.GetUpperBound(0)
           For j = 0 To strArr.GetUpperBound(0)
               MsgBox(strArr(i, j))
           Next
       Next
   End Sub