Dim pole(6, 6)
For i As Integer = 0 To 5
    For j As Integer = 0 To 5
      pole(i, j) = -1
    Next
Next poradna.net
 poradna.net						
						
 Pexeso ve Visual Basic
				Pexeso ve Visual Basic			Dim pole(6, 6)
For i As Integer = 0 To 5
    For j As Integer = 0 To 5
      pole(i, j) = -1
    Next
Next