* put 3, 5 , ... and the shape is moved, but the position is incorrect. * Strangely, with an even number it is correct #DEFINE NNHEIGHT 1 PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN DEFINE CLASS form1 AS form Top = 0 Left = 0 Height = NNHEIGHT Width = 375 DoCreate = .T. Caption = "Form1" Name = "Form1" ADD OBJECT shape1 AS shape WITH ; Left = 48, ; Height = NNHEIGHT , ; Width = 100, ; Anchor = 512, ; Name = "Shape1" PROCEDURE shape1.Init DEBUGOUT "start centered",this.top+INT(this.height/2),INT(thisform.height/2) ENDPROC PROCEDURE shape1.Move ( nLeft, nTop, nWidth, nHeight ) DEBUGOUT "expected equal",nTop+INT(m.nHeight/2),INT(thisform.height/2) ENDPROC ENDDEFINEFabio