Get Globe from Application Snippet

///<summary>Gets the IGlobe interface from IApplication.</summary>
///  
///<param name="application">An IApplication interface.</param>
///   
///<remarks>An IGlobe interface.</remarks>
public ESRI.ArcGIS.GlobeCore.IGlobe GetGlobeFromApplication(ESRI.ArcGIS.Framework.IApplication application)
{
  if(application == null)
  {
    return null;
  }
  ESRI.ArcGIS.ArcGlobe.IGMxDocument gmxDocument = application.Document as ESRI.ArcGIS.ArcGlobe.IGMxDocument; // Dynamic Cast
  ESRI.ArcGIS.Analyst3D.IScene scene = gmxDocument.Scene;
  ESRI.ArcGIS.GlobeCore.IGlobe globe = scene as ESRI.ArcGIS.GlobeCore.IGlobe; // Dynamic Cast

  return globe;
}

'''<summary>Gets the IGlobe interface from IApplication.</summary>
'''  
'''<param name="application">An IApplication interface.</param>
'''   
'''<remarks>An IGlobe interface.</remarks>
Public Function GetGlobeFromApplication(ByVal application As ESRI.ArcGIS.Framework.IApplication) As ESRI.ArcGIS.GlobeCore.IGlobe

  If application Is Nothing Then
    Return Nothing
  End If

  Dim gmxDocument As ESRI.ArcGIS.ArcGlobe.IGMxDocument = TryCast(application.Document, ESRI.ArcGIS.ArcGlobe.IGMxDocument) ' Dynamic Cast
  Dim scene As ESRI.ArcGIS.Analyst3D.IScene = gmxDocument.Scene
  Dim globe As ESRI.ArcGIS.GlobeCore.IGlobe = TryCast(scene, ESRI.ArcGIS.GlobeCore.IGlobe) ' Dynamic Cast

  Return globe

End Function