o=CREATEOBJECT('MSXML2.ServerXMLHTTP.4.0')well here is the exact code and form KeyPreview = .t.
LOCAL ctr ctr = 1 DO WHILE 1 = 1 *!* IF ctr > 30 *!* EXIT *!* ENDIF ACTIVATE SCREEN _screen ?INKEY(), LASTKEY(), CHRSAW() IF INKEY() = 27 EXIT ENDIF thisform.ProccessNextTran() IF thisform.NextCount = 0 =MESSAGEBOX('Done...',64,'Sync') EXIT ENDIF IF thisform.RetVal < 0 =MESSAGEBOX('Error...',64,'Sync') EXIT ENDIF ctr = ctr + 1 ENDDO>Hi Mike,