diff --git a/comp/src/gb.form.mdi/.src/ToolBar/FToolBar.class b/comp/src/gb.form.mdi/.src/ToolBar/FToolBar.class
index 381114dd7..1bbbf51f4 100644
--- a/comp/src/gb.form.mdi/.src/ToolBar/FToolBar.class
+++ b/comp/src/gb.form.mdi/.src/ToolBar/FToolBar.class
@@ -899,8 +899,8 @@ Public Sub Form_DragMove()
     Return
   Endif
   
-  While hCtrl.Parent <> panToolBar
-    hCtrl = hCtrl.Parent
+  While hCtrl._Parent <> panToolBar
+    hCtrl = hCtrl._Parent
   Wend
 
   If hCtrl = panWhere Then Return
@@ -966,8 +966,8 @@ Private Sub OnMouseDrag(hCtrl As Control)
   
   Dim sAction As String
   
-  While hCtrl.Parent <> panToolBar
-    hCtrl = hCtrl.Parent
+  While hCtrl._Parent <> panToolBar
+    hCtrl = hCtrl._Parent
     'Debug "-> "; hCtrl
   Wend