PROCEDURE Destroy
IF ThisForm.lProcessing
   RETURN .F.
ENDIF

This.oNet = .NULL.
CLOSE DATABASES

ENDPROC