我又有问题啦，请问如何在程序里移动控件啊

5555

Dim CurX As Long, CurY As Long

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
 CurX = X: CurY = Y
End If
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
 Picture1.Move Picture1.Left + (X - CurX), Picture1.Top + (Y - CurY)
End If
End Sub

再帮你一回，呵呵

这个可以哦，但如果是image的话，图片会闪，大的话会有些慢，有没有更好的方法呢？

自己画图