Como retornar a quantidade de dimensões de um array

'Este exemplo mostra como obter a quantidade de
'dimensões de um array

Module Module1
  Sub Main()
    'declara o array
    Dim valores As Integer(,)
    'inicializa o array
    valores = New Integer(,) {{1, 2, 3}, {4, 5, 6}}

    'obtém a quantidade de dimensões
    Dim dimensoes As Integer = valores.Rank

    Console.WriteLine("O array tem " & dimensoes & _
      " dimensões")

    Console.WriteLine()
    Console.WriteLine("Pressione uma tecla para sair...")
    Console.ReadKey()
  End Sub
End Module