SUB CATMain()
{
  Dim i As Integer
  Dim aktProd As Product

  For (i=CATIA.ActiveDocument.Product.Products.count To i=1 Step -1
  {
    Set aktProd = CATIA.ActiveDocument.Product.Products.Item(i)
    aktProd.ApplyWorkMode = DEFAULT_MODE /*bzw. VISUALIZATION_MODE*/
  }

}