PUBLIC oBackup LOCAL llReturn llReturn = ThisForm.OleControl1.License("BKP10-14YZK-DBRKJ-44NA") IF NOT llReturn MESSAGEBOX("License Key did not work") ENDIF>In Form's Init:
PUBLIC oBackup LOCAL llReturn oBackup = CREATEOBJECT("XceedBackup") llReturn = oBackup.License("BKP10-14YZK-DBRKJ-44NA") IF NOT llReturn MESSAGEBOX("License Key did not work") ENDIF