I tried it even but no result.

The Code of the Save and Exit button is as follows:

Save Button
------------
micode = ThisForm.contMaster.txtIcode.Value
mprice = ThisForm.contMaster.mprice.value
SELECT dicode
SET ORDER TO icode
SEEK micode IN dicode
IF FOUND()
REPLACE sell_price WITH mprice
ENDIF
ThisForm.contMaster.mprice.value = 0
ThisForm.contMaster.txtIcode.SetFocus

Exit Button
-----------
ThisForm.Release

Init Event of the form
----------------------
LPARAMETER lType
Public retval
Store 0 to retval
SET EXCLUSIVE OFF
SET DATE BRITISH
SET CENTURY ON
SET deleted ON
This.Height=519
This.Width=681
This.vtype = '19'
This.AutoCenter = .F. && I put it here as per your suggestion
This.AutoCenter = .T. &&
ThisForm.contMaster.mprice.Value = 0
ThisForm.contMaster.txtIcode.SetFocus

Saify