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 and opens an SRF file
    Dim Plot As Object
	Set Plot = SurferApp.Documents.Open(FileName:=SurferApp.Path+"\Samples\Classed Post.srf")

'Assigns the map in the SRF file to the variable "MapFrame1"
'You may need to change the Index number so that the map in the SRF file is selected.
	Dim MapFrame1 As Object
	Set MapFrame1 = Plot.Shapes.Item(Index:=2)

	MapFrame1.Select

	Plot.Export(FileName:="C:\temp\test.jpg", SelectionOnly:=True)

End Sub