Add Vector Data to Globe Snippet

///<summary>Add Vector Data to Globe</summary>
///      
///<param name="globe">An IGlobe interface</param>
///<param name="globeLayerType">An esriGlobeLayerType enum. Example: ESRI.ArcGIS.GlobeCore.esriGlobeLayerType.esriGlobeLayerTypeDraped</param>
///<param name="layer">An ILayer interface</param>
///      
///<remarks></remarks>
public void AddVectorDataToGlobe(ESRI.ArcGIS.GlobeCore.IGlobe globe, ESRI.ArcGIS.GlobeCore.esriGlobeLayerType globeLayerType, ESRI.ArcGIS.Carto.ILayer layer)
{
  if (globe == null || layer == null || globeLayerType == ESRI.ArcGIS.GlobeCore.esriGlobeLayerType.esriGlobeLayerTypeElevation || globeLayerType == ESRI.ArcGIS.GlobeCore.esriGlobeLayerType.esriGlobeLayerTypeUnknown)
  {
    return;
  }

  ESRI.ArcGIS.GlobeCore.IGlobeDisplay globeDisplay = globe.GlobeDisplay;
  ESRI.ArcGIS.GlobeCore.IGlobeDisplay2 globeDisplay2 = globeDisplay as ESRI.ArcGIS.GlobeCore.IGlobeDisplay2; // Reference or Boxing Conversion
  globeDisplay2.PauseCaching = true;
  globe.AddLayerType(layer, globeLayerType, true);
  ESRI.ArcGIS.GlobeCore.IGlobeDisplayLayers globeDisplayLayers = globeDisplay as ESRI.ArcGIS.GlobeCore.IGlobeDisplayLayers; // Reference or Boxing Conversion
  ESRI.ArcGIS.GlobeCore.IGlobeLayerProperties globeLayerProperties = globeDisplayLayers.FindGlobeProperties(layer);
  globeLayerProperties.IsDynamicallyRasterized = false;
  globeDisplay2.PauseCaching = false;
}

'''<summary>Add Vector Data to Globe</summary>
'''      
'''<param name="globe">An IGlobe interface</param>
'''<param name="globeLayerType">An esriGlobeLayerType enum. Example: ESRI.ArcGIS.GlobeCore.esriGlobeLayerType.esriGlobeLayerTypeDraped</param>
'''<param name="layer">An ILayer interface</param>
'''      
'''<remarks></remarks>
Public Sub AddVectorDataToGlobe(ByVal globe As ESRI.ArcGIS.GlobeCore.IGlobe, ByVal globeLayerType As ESRI.ArcGIS.GlobeCore.esriGlobeLayerType, ByVal layer As ESRI.ArcGIS.Carto.ILayer)

  If globe Is Nothing OrElse layer Is Nothing OrElse globeLayerType = ESRI.ArcGIS.GlobeCore.esriGlobeLayerType.esriGlobeLayerTypeElevation OrElse globeLayerType = ESRI.ArcGIS.GlobeCore.esriGlobeLayerType.esriGlobeLayerTypeUnknown Then

   Return

  End If

  Dim globeDisplay As ESRI.ArcGIS.GlobeCore.IGlobeDisplay = globe.GlobeDisplay
  Dim globeDisplay2 As ESRI.ArcGIS.GlobeCore.IGlobeDisplay2 = CType(globeDisplay, ESRI.ArcGIS.GlobeCore.IGlobeDisplay2) ' Explicit Cast
  globeDisplay2.PauseCaching = True
  globe.AddLayerType(layer, globeLayerType, True)
  Dim globeDisplayLayers As ESRI.ArcGIS.GlobeCore.IGlobeDisplayLayers = CType(globeDisplay, ESRI.ArcGIS.GlobeCore.IGlobeDisplayLayers) ' Explicit Cast
  Dim globeLayerProperties As ESRI.ArcGIS.GlobeCore.IGlobeLayerProperties = globeDisplayLayers.FindGlobeProperties(layer)
  globeLayerProperties.IsDynamicallyRasterized = False
  globeDisplay2.PauseCaching = False

End Sub