diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 5da6698e52..ca41dc7b05 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -16,6 +16,10 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2011-04-13 12:18 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
+  * contrib/hbxbp/xbpparthandler.prg
+    ! Fixed: fading inner XbpDialog() while moving the parent ( not owner ).
+
 2011-04-13 21:13 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
   * utils/hbmk2/hbmk2.prg
     ! fixed RTE when using invalid GT name from cmdline ('hbmk2 test -gt.')
diff --git a/harbour/contrib/hbxbp/xbpparthandler.prg b/harbour/contrib/hbxbp/xbpparthandler.prg
index 61c8612e4c..33a44b73ba 100644
--- a/harbour/contrib/hbxbp/xbpparthandler.prg
+++ b/harbour/contrib/hbxbp/xbpparthandler.prg
@@ -318,8 +318,10 @@ METHOD moveOwned( nOffSetX, nOffSetY ) CLASS XbpPartHandler
 
    FOR EACH oXbp IN ::_aOwned
       IF __objHasMsg( oXbp, "MOVEWITHOWNER" ) .AND. oXbp:moveWithOwner
-         oPos := oXbp:oWidget:pos()
-         oXbp:oWidget:move( oPos:x() + nOffSetX, oPos:y() + nOffSetY )
+         IF oXbp:oParent:className() != "XBPDRAWINGAREA"
+            oPos := oXbp:oWidget:pos()
+            oXbp:oWidget:move( oPos:x() + nOffSetX, oPos:y() + nOffSetY )
+         ENDIF
       ENDIF
    NEXT