' Create_Cartogram_Map.bas
'
' This script creates a Dorling cartogram and fills in
' the circles with a color.
'
' This script requires MapViewer 6 or later.  It will not run work
' with MapViewer 5.
'
' Mike Blessing, Golden Software, 27-Jul-2004
' mapviewersupport@goldensoftware.com
'
Option Explicit
Sub Main
  Dim mvApp, plot, cmap 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)

  path = mvApp.ApplicationFolder & "samples\"

  ' Create cartogram map
  Set cmap = plot.CreateCartogramMap ( _
    BoundaryFileName := path & "AL2000.gsb", _
    DataFileName := path & "AL2000.dat", _
    PIDCol := 1, _
    VarCol := 3 _
    )


  ' Fill the cartogram circles with blue
  cmap.Fill.ForeColor = mvColorBabyBlue
  cmap.Fill.Pattern = "solid"


End Sub