PROCEDURE OpenFile
   LPARAMETERS FileToOpen

      oDoc = This.oFrm.oZip.Document
      oFld = oDoc.Folder
      oIts = oFld.Items
      nIts = oIts.Count
      FOR t = 0 TO nIts-1
         IF oIts.Item[t].Name = FileToOpen
            EXIT
         ENDIF
      ENDFOR
      oits.Item(t).Verbs.Item(0).DoIt     && <<== error 1943

   RETURN

Groet,
Peter de Valença

Constructive frustration is the breeding ground of genius.
If there’s no willingness to moderate for the sake of good debate, then I have no willingness to debate at all.
Let's develop superb standards that will end the holy wars.
"There are three types of people: Alphas and Betas", said the beta decisively.
If you find this message rude or offensive or stupid, please take a step away from the keyboard and try to think calmly about an eventual a possible alternative explanation of my message.