Sub Main

'Declare the variable that will reference the application
        Dim SurferApp As Object
        Set SurferApp = CreateObject("Surfer.Application")
        SurferApp.Visible = True

 'Declares Plot as an object
        Dim Plot As Object
        Set Plot = SurferApp.Documents.Add

'Creates a contour map
        Dim MapFrame As Object
		Set MapFrame = Plot.Shapes.AddContourMap(GridFileName:=SurferApp.Path+"\samples\demogrid.grd")

'Assigns the Axes collection for the MapFrame to the variable named "Axes"
		Dim Axes As Object
 		Set Axes = MapFrame.Axes

 'Assigns the different axes to variable names
 		Set BottomAxis = Axes("Bottom axis")
		BottomAxis.Visible=False

End Sub