Sub Main

   Set MapViewerApp = CreateObject("MapViewer.Application")
   MapViewerApp.Visible = True
   Set doc = MapViewerApp.Documents.Add(DocType:=mvDocPlot)

   Doc.CreateBaseMap("c:\program files\golden software\MapViewer 5\Samples\Ca2000.gsb")

   Doc.Layers(1).Shapes.SelectByPID("06093")
   Doc.Layers(1).Shapes.SelectByPID("06049")
   Doc.Layers(1).Selection.UnionOfAreas(KeepOriginalAreas:=False, KeepInnerareas:=True)

Dim area As Object
Set area = Doc.Layers(1).Selection.Item(1)
area.Fill.Pattern = "Crosshatch"
area.Fill.ForeColor = mvColorGreen
area.PIDName="Zone 1"

End Sub