Dim arcMap As New Class_ArcMap
Dim g As New Class_Global

'======================================================
'               TurnOnAllLayers
'======================================================
Public Sub TurnOnAllLayers()
   arcMap.TurnOnAllLayers
End Sub

'======================================================
'               TurnOffAllLayers
'======================================================
Public Sub TurnOffAllLayers()
    arcMap.TurnOffAllLayers
End Sub

'======================================================
'               ZoomIn
'======================================================
Public Sub ZoomIn()
    arcMap.ZoomIn
End Sub

'======================================================
'               ZoomOut
'======================================================
Public Sub ZoomOut()
    arcMap.ZoomOut
End Sub

'======================================================
'               CenterTo
'======================================================
Public Sub CenterTo()
arcMap.CenterTo -100.0896, 11.654
End Sub

'======================================================
'               ShowCenter
'======================================================
Public Sub ShowCenter()
arcMap.ShowCenter 100, 100
End Sub
'======================================================
'               TurnOnLayer
'======================================================
Public Sub TurnOnLayer()
arcMap.TurnOnLayer ("dgps data")
End Sub

'======================================================
'                MapSurrounds
'======================================================
Public Sub MapSurrounds()
'arcMap.MapSurrounds ("dgps data")
End Sub

'======================================================
'               Test
'======================================================
Public Sub Test()
arcMap.AddShapeFile ("C:\GTKArcGIS\Chapter03\Data\flight_diverge.shp")
End Sub