游戏编了一半遇到了这样一个问题，就是游戏人物合成材料或者卖出物品时，需要物品（也就是一个image控件在两个表单之间移动）在两个表单之间移动。
本来偶是这样想的，在主界面建立一个image控件，当需要移动的时候，根据鼠标的位置显示并显示物品的图像，然后根据鼠标的位置移动。
另外关于鼠标的位置，
用了如下代码
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Type POINTAPI '定义点(Point)结构
X As Long '点在X坐标(横坐标)上的坐标值
Y As Long '点在Y坐标(纵坐标)上的坐标值
End Type
Sub PrintCursorPos()
Dim dl As Long
Dim MyPoint As POINTAPI
dl& = GetCursorPos(MyPoint) '调用函数，获取屏幕鼠标坐标

sb_x = MyPoint.X
sb_y = MyPoint.Y
End Sub
但是获取鼠标位置时，只有鼠标经过当前表单的时候才有效
而且主界面的image控件被当前的表单遮挡了（只有鼠标经过当前表单的时候才有效，因此移动的image控件永远在当前表单的后面）

请帮忙
下面是偶部分的游戏截图

怎么才能这样移过去

怎么才能这样移过去

感谢 清澂居士，如果按照你的说法，图片不能出现随着鼠标移动的效果了，但是可以解决问题。
感谢 永夜的极光 说的方法差不多。
在你们的启发下，偶想了个变通的方法，就是在一个窗体内融和所有的元素，然后根据条件来显示不同的部分。比如包裹上的《随身商店》按钮，点击后就是可以展开系统的NPC的物品，当然显示物品比较好办，就是根据数据库的内容，输出不同的东西罢了