Sub Main

    Dim SurferApp, Plot, MapFrame, Axes, Axis As Object
    Set SurferApp = CreateObject("Surfer.Application")
    SurferApp.Visible = True

    Infile = SurferApp.Path + "\samples\demogrid.grd"
    Set Plot = SurferApp.Documents.Add
    Set MapFrame = Plot.Shapes.AddContourMap(GridFileName:=Infile)
    Set Axes = MapFrame.Axes

    For Each Axis In Axes
        Axis.ShowLabels = False
        Axis.MajorTickType = srfTickNone
        Axis.MinorTickType = srfTickNone
    Next Axis

End Sub