//------------------------
int Sub OnCommandDrugiegoOkna(int id, int msg)
//------------------------

endsub

//------------------------
int Sub DrugieOkno()
//------------------------   

FORM "Drugie Okno", 120,100
   BUTTON "Koniec", 5,5,100,20, -1
ExecForm (OnCommandDrugiegoOkna)

DrugieOkno = 1
endsub

//------------------------
int Sub OnCommandPierwszegoOkna(int id, int msg)
//------------------------


endsub

//------------------------
int Sub Pierwszeokno()
//------------------------   

FORM "Pierwsze Okno", 200,150
   BUTTON "Drugie Okno", 5,5, 80,20,DrugieOkno()
   BUTTON "Koniec", 100,5,80,20, -1
ExecForm (OnCommandPierwszegoOkna)

endsub


PierwszeOkno()

while rv>2
  Form ...
    ...
    Button "OtworzDrugie", 100,20,70,25, 3 // do tej trójki odwołujemy się poniżej
  ExecForm OnCommand1

  if rv==3 then OtworzDrugie()
wend