Dim areas As New Integer[][3]
 
  'to add elements 

  areas.Add([1, 2, 3])
  areas.Add([4, 5, 6])

  'or

  areas[0] = [1, 2, 3]
  areas[1] = [4, 5, 6]

  'why the result of  following is 3
  Print areas.Count

  'how to erate all the elments, the following go wrong, areas[i] is null
   For i = 0 To areas.Count - 1
    For j = 0 To areas[i].Count - 1
      Print areas[i][j]
    Next
  Next