Zoom to Globe Layer Snippet

///<summary>Zooms to the specified layer in the globe at a specific index number.</summary>
/// 
///<param name="globe">An IGlobe interface</param>
///<param name="layerIndex">A System.Int32 that is the layer index number in the globe (zero based). Example: 0</param>
///  
///<remarks></remarks>
public void ZoomToGlobeLayer(ESRI.ArcGIS.GlobeCore.IGlobe globe, System.Int32 layerIndex)
{
  ESRI.ArcGIS.GlobeCore.IGlobeDisplay globeDisplay = globe.GlobeDisplay;
  ESRI.ArcGIS.Analyst3D.ISceneViewer sceneViewer = globeDisplay.ActiveViewer;
  ESRI.ArcGIS.Analyst3D.ICamera camera = sceneViewer.Camera;
  ESRI.ArcGIS.GlobeCore.IGlobeCamera globeCamera = (ESRI.ArcGIS.GlobeCore.IGlobeCamera)camera; // Explicit Cast
  ESRI.ArcGIS.Analyst3D.IScene scene = (ESRI.ArcGIS.Analyst3D.IScene)globe; // Explicit Cast
  ESRI.ArcGIS.Carto.ILayer layer = scene.get_Layer(layerIndex);
  ESRI.ArcGIS.Geometry.IEnvelope envelope = layer.AreaOfInterest.Envelope;
  globeCamera.SetToZoomToExtents(envelope, globe, sceneViewer);
}

'''<summary>Zooms to the specified layer in the globe at a specific index number.</summary>
''' 
'''<param name="globe">An IGlobe interface</param>
'''<param name="layerIndex">A System.Int32 that is the layer index number in the globe (zero based). Example: 0</param>
'''  
'''<remarks></remarks>
Public Sub ZoomToGlobeLayer(ByVal globe As ESRI.ArcGIS.GlobeCore.IGlobe, ByVal layerIndex As System.Int32)

  Dim globeDisplay As ESRI.ArcGIS.GlobeCore.IGlobeDisplay = globe.GlobeDisplay
  Dim sceneViewer As ESRI.ArcGIS.Analyst3D.ISceneViewer = globeDisplay.ActiveViewer
  Dim camera As ESRI.ArcGIS.Analyst3D.ICamera = sceneViewer.Camera
  Dim globeCamera As ESRI.ArcGIS.GlobeCore.IGlobeCamera = CType(camera, ESRI.ArcGIS.GlobeCore.IGlobeCamera) ' Explicit Cast
  Dim scene As ESRI.ArcGIS.Analyst3D.IScene = CType(globe, ESRI.ArcGIS.Analyst3D.IScene) ' Explicit Cast

  Dim layer As ESRI.ArcGIS.Carto.ILayer = scene.Layer(layerIndex)

  Dim envelope As ESRI.ArcGIS.Geometry.IEnvelope = layer.AreaOfInterest.Envelope
  globeCamera.SetToZoomToExtents(envelope, globe, sceneViewer)

End Sub