Hvordan tager man fat i alle objekter på et billede i iFIX ?

Private Sub CommandButton1_Click()  Dim oPic As Object Dim oShape As Object      

Set oPic = Application.ActiveDocument.Page      

For Each oShape In oPic.ContainedObjects         

If Left(oShape.Name, 5) = "Group" Then '           

  ' Her indsættes koden, der skal udføres på de valgte objekter. F.eks. synlighed           

  oShape.Visible = False        

 End If    

 Next oShape 

End Sub