If Karben.Selim.Mejia.WannaHaveMore = .T. or Karben.Wife.Command = .T.
   For HowManyChildren to 2
       Try 
           Karben.Selim.Mejia.Child.Add()
       Catch
           If Messagebox("Wana try again?",4,"Another baby?") = IDYES then 
              loop
           else
               Quit
           endif
       EndTry
   EndFor
EndIf

DO WHILE .T.
      ME.Work()
ENDDO