How to get the default hierarchy name of a dimension from the Cube?

public MainWindow()
        {
                InitializeComponent();
                this.olapGrid1.OlapDataManager = new       
                Syncfusion.Olap.Manager.OlapDataManager("Data 
                Source=http://bi.syncfusion.com/olap/msmdpump.dll;
                Initial Catalog=Adventure Works DW 2008 SE;");
                this.olapGrid1.OlapDataManager.SetCurrentReport(SampleReport());
                this.olapGrid1.Loaded += olapGrid1_Loaded;
        }
void olapGrid1_Loaded(object sender, System.Windows.RoutedEventArgs e)
    {
        string defaultHierarchyName = "";
        var Dimensions=this.olapGrid1.OlapDataManager.CurrentCubeSchema.Dimensions;
            for (int i = 0; i < Dimensions.Count; i++)
            {
                // Enter the valid hierarchy name that you want to check.
                if (Dimensions[i].Name == "Customer” )
                {
                    defaultHierarchyName = Dimensions[i].DefaultHierarchyName;
                    break;
                }
            }
      }

Public Sub New()
                InitializeComponent()
                Me.olapGrid1.OlapDataManager = New Syncfusion.Olap.Manager.OlapDataManager("Data Source=http://bi.syncfusion.com/olap/msmdpump.dll; Initial Catalog=Adventure Works DW 2008 SE;")                                                Me.olapGrid1.OlapDataManager.SetCurrentReport(SampleReport())
                AddHandler Me.olapGrid1.Loaded, AddressOf olapGrid1_Loaded
End Sub
Private Sub olapGrid1_Loaded(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs)
         Dim defaultHierarchyName As String = ""
         Dim Dimensions =      Me.olapGrid1.OlapDataManager.CurrentCubeSchema.Dimensions
                For i As Integer = 0 To Dimensions.Count – 1
                  'Enter valid hierarchy name which you want to check.
                      If Dimensions(i).Name = "Customer" Then                                                                                         defaultHierarchyName = Dimensions(i).DefaultHierarchyName
                      Exit For
                   End If
         Next i
End Sub