游戏编了一半遇到了这样一个问题，就是游戏人物合成材料或者卖出物品时，需要物品（也就是一个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控件永远在当前表单的后面）

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

怎么才能这样移过去

怎么才能这样移过去

拖拽事件 不行吗?

很牛，这都编的出来，高手来的

没必要用两个窗体吧。。PICTUREBOX控件之间相对比较简单。。。

如果必须要两个窗体的话 可以直接把拖动的那个窗体图片HIDE起来，然后在放图片窗体显示出来。
DROPOVER可以检测拖动位置的，进行一定的判断就行了。

PS：感觉用VB控件做游戏，太消耗资源了，还是老实的学下DX8吧。。

是不是可以新建一个无标题栏的窗体,来存放这张图片

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