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