Sub Main
	 Dim SurferApp As Object
	 Dim Path As String
	 Path = "D:\CLIMON\"
	 Set SurferApp = CreateObject("Surfer.Application")
	 Dim Plot As Object
	 Set Plot = SurferApp.Documents.Add(srfDocPlot)
	 Dim Shapes As Object

	 Set Shapes = Plot.Shapes
	 Dim BaseMap As Object
	 Set BaseMap = Shapes.AddBaseMap(ImportFileName:=Path+"SHAPEFILE\province.shp")

	 Set PostMap = Shapes.AddClassedPostMap(Path+"SURFDATA\postmap.xls", _
								xCol:=1, yCol:=2, zCol:=4,labcol:=5)
	PostMap.BackgroundFill.ForeColor = srfColorWhite
	PostMap.BackgroundFill.Pattern = "Solid"
	Set clpost1 = PostMap.Overlays("Classed Post")
		clPost1.NumClasses = 3
		clpost1.ShowLegend = False
		clpost1.LabelFont.Face = "AngsanaUPC"
		clpost1.LabelFont.Size = 5

   For i = 1 To 3
			With clpost1.BinSymbol(i)
			.Set = "GSI Default Symbols"
			.Index = 9+i*3
			.Size = 0.02
			End With
		Next i
	clpost1.BinSymbol(1).Color =srfColorRed
	clpost1.BinSymbol(2).Color =srfColorDarkBlueGreen
	clpost1.BinSymbol(3).Color =srfColorBlue
	Plot.Selection.DeselectAll
	BaseMap.Selected = True
	PostMap.Selected=True
	Plot.Selection.OverlayMaps
	 SurferApp.Visible = True
End Sub