'Converts the blank value in a grid to a different value. This is the number that Surfer
'considers blanked, so all nodes with this number as the Z value will be blanked in Surfer.

'This is different from Blank0.bas, which simply replaces the Z value
'of blanked nodes with another number, leaving the actual blank value the same.

Sub Main

	Dim SurferApp As Object
	Set SurferApp = CreateObject("Surfer.Application")

	Dim Grid As Object

	Set Grid = SurferApp.NewGrid
	Grid.LoadFile(FileName:=SurferApp.Path+"\samples\demogrid.grd", HeaderOnly:=False)

'Sets the BlankValue of the grid. All nodes with a Z value exactly equal to the BlankValue will be considered blanked by Surfer.
	Grid.BlankValue = -32767

End Sub