添加1个图片PICTUREBOX，复制以下代码Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Picture1.Move X, YEnd Sub
