VB6關於控制項拖曳問題

students1

 
請問一下為什麼我拖曳我的表格控制項,如果拖曳到重疊其他的控制項時會完成無法拖曳
要怎樣解決即使重疊還是一樣可以拖曳勒該位置

程式碼如下:
Dim Move_Command As Integer '拖曳MSFlexGridS控件
Dim xx As Long, yy As Long '拖曳MSFlexGridS控件


Private Sub Command1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single)
Command1(Index).ZOrder
Move_Command = Index
Command1(Index).Drag vbBeginDrag
xx = x: yy = y

End Sub

Private Sub Form_DragDrop(Source As Control, x As Single, y As Single)
Command1(Move_Command).Move x - xx, y - yy
End Sub

http://www.vbgood.com/forum.php?mod=attachment&aid=NTEzMTd8YTcwNTZhMjB8MTQ2OTY3Njk5MXwxNTQxNTl8MTUxMjQ2

students1

搞定了........已自行解決了
簡單的介面哈哈
http://www.vbgood.com/forum.php? ... HwxNTQxNTl8MTUxMjQ2