' Hide_Selection.bas
'
' This script turns off the visibility of all selected objects.
'
' Mike Blessing, Golden Software, 25-Feb-2005
' mapviewersupport@goldensoftware.com
'
Option Explicit
Sub Main
  Dim mvApp, sel As Object
  Dim i As Long

  ' Find MapViewer and create a pointer to the application object
  Set mvApp = GetObject(,"MapViewer.Application")

  ' Get a pointer to the current selection collection
  Set sel = mvApp.ActiveDocument.ActiveLayer.Selection

  ' Set each selected object to be invisible
  For i = 1 To sel.Count
     sel.Item(i).Visible = False
  Next i

End Sub