Private Sub PictureBox1_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseWheel
If e.Delta > 0 Then
PictureBox1.Width -= 20
PictureBox1.Height -= 20
Else
PictureBox1.Width += 20
PictureBox1.Height += 20
End If
End Sub
Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
If e.Button = Windows.Forms.MouseButtons.Left Then
Windows.Forms.Cursor.Current = Cursors.Hand
PictureBox1.Location = New System.Drawing.Point(e.X, e.Y)
图片移动效果不行，有没有什么方法解决。
End If
End Sub

帮帮忙啊