Hey Jake,
Yes, definitely. Check this out in the Help File:
Projection property
Returns or sets whether the map is displayed as a flat map (Miller Cylindrical projection) or globe map (orthographic projection) at zoom levels above 5,700 miles (9,200 kilometers). Below this altitude, the map is always displayed as a globe map. Read/write GeoMapProjection.
Here's the example they include:
Code:
Sub ChangeToGlobeView()
Dim objApp As New MapPoint.Application
'Set up the application
objApp.Visible = True
objApp.UserControl = True
'Change the map projection to
' globe view and zoom out to see it
objApp.ActiveMap.Projection = geoGlobeViewWhenZoomedOut
objApp.ActiveMap.ZoomOut
End Sub