PROCEDURE Destroy IF ThisForm.lProcessing RETURN .F. ENDIF This.oNet = .NULL. CLOSE DATABASES ENDPROC