VB中怎样可以令到窗体跟着控件一起移动，有一个PICTUREBOX在窗体中，我在MOUSEDOWN事件中通过SendMessage(Picture1.hWnd, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0)令到PICTUREBOX跟着鼠标移到，那我怎样令到窗体也一起移到？望指教，谢谢。

楼主的意思是不是，不想通过窗体标题栏移动窗体，而是想在窗体的任意位置都能移动？

'通用中声明
Dim MX As Long, MY As Long

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
MX = X
MY = Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
    If MX - X <= 0 Then
    Me.Left = Me.Left + Abs(MX - X)
    Else
    Me.Left = Me.Left - Abs(MX - X)
    End If
    If MY - Y <= 0 Then
    Me.Top = Me.Top + Abs(MY - Y)
    Else
    Me.Top = Me.Top - Abs(MY - Y)
    End If
   
End If
End Sub

要是你已经能使用PictureBox中的的MouseDown～
让图片框在窗体中移动～
那就加写2行同时调整窗体的（上+左）～
PictureBox的移动多少～
窗体就跟着移动多少不就可以了～
加减的问题而已～

[ 本帖最后由 wube 于 2011-11-9 01:09 编辑 ]

意思说的不清楚，实现什么目的呢