Sub Main

   Set MapViewerApp = CreateObject("MapViewer.Application")
   MapViewerApp.Visible = True

   Set doc = MapViewerApp.Documents.Add(DocType:=mvDocPlot)
   Doc.CreateBaseMap(MapViewerApp.ApplicationFolder+"samples\co2000.gsb")
   Doc.Layers(1).Shapes.SelectByPID("08059")

Dim area As Object
Set area = Doc.Layers(1).Shapes.Item("08059")
area.Fill.Pattern = "Crosshatch"
area.Fill.ForeColor = mvColorGreen

End Sub