Hiding the dimensions present in Cube Dimension Browser

public class OlapManager : IOlapDataProvider
{
private readonly OlapDataProvider _dataManager;
public OlapManager()
        {
_dataManager = new OlapDataProvider("Data Source=http://bi.syncfusion.com/olap/msmdpump.dll; Initial Catalog=Adventure Works DW 2008 SE;");       
       }
public CubeSchema GetCubeSchema(string cubeName)
        {
            CubeSchema cubeSchema = _dataManager.GetCubeSchema(cubeName);
            _dataManager.DataProvider.CloseConnection();
            if (cubeSchema!=null)
            {
                for (int i = 0; i < cubeSchema.Dimensions.Count; i++)
                {
                    if (cubeSchema.Dimensions[i].Name == "Date")
                    {
                        cubeSchema.Dimensions[i].Visible = false;
                    }
                }
            }
            return cubeSchema;
        }
}

Public Class OlapManager
 Implements IOlapDataProvider
Private ReadOnly _dataManager As OlapDataProvider
Public Sub New()
         _dataManager = New OlapDataProvider(“Data Source=http://bi.syncfusion.com/olap/msmdpump.dll; Initial Catalog=Adventure Works DW 2008 SE;");       
End Sub
Public Function GetCubeSchema(ByVal cubeName As String) As CubeSchema
 Dim cubeSchema As CubeSchema = _dataManager.GetCubeSchema(cubeName)
 _dataManager.DataProvider.CloseConnection()
 If cubeSchema IsNot Nothing Then
  For i As Integer = 0 To cubeSchema.Dimensions.Count - 1
   If cubeSchema.Dimensions(i).Name = "Date" Then
    cubeSchema.Dimensions(i).Visible = False
   End If
  Next i
 End If
 Return cubeSchema
    End Function
End Class