vb在image控件按住鼠标如何拖动窗口？

[sounan1982]

我做了一个窗口，标题栏我是用IMAGE控件做的，这就存在个问题，这个窗口拖动不了。请问大家这种问题如何解决？

[现在还是人类]

Dim MovX As Long, MovY As Long
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   If Button = 1 Then
      MovX = X: MovY = Y
   End If
End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   If Button = 1 Then
      Me.Move Me.Left + (X - MovX), Me.Top + (Y - MovY)
   End If
End Sub

[嗷嗷叫的老马]

.[Quote=引用 2 楼 supermanking 的回复:]
VB code

Dim MovX As Long, MovY As Long
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
MovX = X: MovY = Y
End If
End ……
[/Quote]

[东方之珠]

拖动窗口要利用句柄，你用的IMAGE控件有没有句柄？