Ric,

I also had this problem.
With this code the problem disappeared.
The Form is not modal.


**************************************************
*-- Class: crystalvieewerform (c:\cdbk70\amline\libs\abiznessgeneral.vcx)
*-- ParentClass: bebizobjform (c:\cdbk70\amline\libs\abeform.vcx)
*-- BaseClass: form
*
#INCLUDE "c:\cdbk70\amline\include\appincl.h"
*
DEFINE CLASS crystalvieewerform AS bebizobjform

PROCEDURE Destroy
THIS.oEnvironment = .NULL.
THISFORM.REMOVEOBJECT( 'ole_crystalViewer' )
DODEFAULT()
ENDPROC


PROCEDURE Activate

THISFORM.BORDERSTYLE = 3

IF TYPE("This.ole_crystalViewer") <> "O"

WITH THISFORM

.LOCKSCREEN = .T.
.ADDOBJECT 'ole_crystalViewer' , 'olecontrol' , 'crviewer.crviewer.8.0' )

WITH .ole_crystalViewer
.VISIBLE = .T.
.TOP = 1
.LEFT = 1
.HEIGHT= .PARENT.HEIGHT
.WIDTH = .PARENT.WIDTH

.DisplayBackgroundEdge = THIS.oEnvironment.DisplayBackgroundEdge
.DisplayGroupTree = THIS.oEnvironment.DisplayGroupTree
.DisplayTabs = THIS.oEnvironment.DisplayTabs
.DisplayToolbar = THIS.oEnvironment.DisplayToolbar
.EnableAnimationCtrl = THIS.oEnvironment.EnableAnimationCtrl
.EnableCloseButton = THIS.oEnvironment.EnableCloseButton
.EnableDrillDown = THIS.oEnvironment.EnableDrillDown
.EnableExportButton = THIS.oEnvironment.EnableExportButton
.EnableGroupTree = THIS.oEnvironment.EnableGroupTree
.EnableHelpButton = THIS.oEnvironment.EnableHelpButton
.EnableNavigationControls = THIS.oEnvironment.EnableNavigationControls
.EnablePopupMenu = THIS.oEnvironment.EnablePopupMenu
.EnablePrintButton = THIS.oEnvironment.EnablePrintButton
.EnableProgressControl = THIS.oEnvironment.EnableProgressControl
.EnableRefreshButton = THIS.oEnvironment.EnableRefreshButton
.EnableSearchControl = THIS.oEnvironment.EnableSearchControl
.EnableSearchExpertButton = THIS.oEnvironment.EnableSearchExpertButton
.EnableSelectExpertButton = THIS.oEnvironment.EnableSelectExpertButton
.EnableStopButton = THIS.oEnvironment.EnableStopButton
.EnableToolbar = THIS.oEnvironment.EnableToolbar
.EnableZoomControl = THIS.oEnvironment.EnableZoomControl



.reportsource = ocrReport
*-- .refresh() && crée une erreur !!!!! Bug référencé chez SEAGATE


.ViewReport()


ENDWITH

.LOCKSCREEN = .F.
ENDWITH
ENDIF

ENDPROC


PROCEDURE Init
LPARAMETERS oEnvironment

DODEFAULT()

WITH THISFORM

.LOCKSCREEN = .T.
.oEnvironment = oEnvironment
oEnvironment = .NULL.

*.LOCKSCREEN = .F.
ENDWITH
ENDPROC


PROCEDURE Resize
WITH THISFORM

IF .HEIGHT < 200
.HEIGHT = 200
ENDIF

IF .WIDTH < 300
.WIDTH = 300
ENDIF


*-- IL faut que le ctrl activex soit instantié.
*-- il est ajouté par programmation.
IF TYPE("This.ole_crystalViewer") == "O"
WITH .ole_crystalViewer
.WIDTH = THISFORM.WIDTH - 1
.HEIGHT = THISFORM.HEIGHT - 1
ENDWITH
ENDIF

ENDWITH
ENDPROC


ENDDEFINE
*
*-- EndDefine: crystalvieewerform
**************************************************