' Create_Hatch_Map.bas
'
' This script starts MapViewer and creates a simple hatch map.

' Mike Blessing, Golden Software, 27-Jul-2004
' mapviewersupport@goldensoftware.com
'
Option Explicit
Sub Main
  Dim mvApp, plot, hatch As Object
  Dim path As String

  ' Start MapViewer and create a pointer to the application object
  Set mvApp = CreateObject("MapViewer.Application")
  ' Make the application visible
  mvApp.Visible = True
  ' Create a plot document
  Set plot = mvApp.Documents.Add(DocType:=mvDocPlot)

  ' Set the path variable to point to the MapViewer samples folder
  path = mvApp.ApplicationFolder + "samples\"

  ' Create a hatch map of the population in Alabama
  ' Col A contains the PID
  ' Col C contains the population
  Set hatch = plot.CreateHatchMap( _
     BoundaryFileName := path + "al2000.gsb", _
     DataFileName := path + "al2000.dat", _
     PIDCol := 1, _
     VarCol := 3 )

End Sub