マウスで画像の移動(VB2010)

質問

FormにPanelを配置してそのなかにPicturBoxを配置しています。
エクスプローラから画像をドラッグアンドドロップして、マウスで画像を移動させようと考えています。
(Panelのサイズを250,250にして、1024*768ピクセルの画像の一部を窓から見ているような感じ)
下記のコードを書いたのですが、マウスを左クリックした状態のままマウスを移動させると、画像がちらつきます。
PictureBox1.Refresh()を入れて多少現象しましたが、根本的な問題の解決には至っておりません。
どなたか？詳しい方いらっしゃいましたら教えて頂けないでしょうか？宜しくお願いいたいます。

Private drawFlag As Boolean
Private ptStart As Point
Private ptEnd As Point

Private Sub PictureBox1_DragEnter(ByVal sender As Object, _
ByVal e As System.Windows.Forms.DragEventArgs) _
Handles PictureBox1.DragEnter

If e.Data.GetDataPresent(DataFormats.FileDrop) Then
e.Effect = DragDropEffects.Copy
Else
e.Effect = DragDropEffects.None
End If
End Sub

Private Sub PictureBox1_DragDrop(ByVal sender As Object, _
ByVal e As System.Windows.Forms.DragEventArgs) _
Handles PictureBox1.DragDrop

Dim strFileName As String() = CType(e.Data.GetData(DataFormats.FileDrop), String())
Dim fi As New System.IO.FileInfo(strFileName(0))
Dim MyBmp As Bitmap = System.Drawing.Image.FromFile(strFileName(0))
PictureBox1.Image = MyBmp
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles MyBase.Load

PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize
PictureBox1.AllowDrop = True

drawFlag = False

End Sub

Private Sub PictureBox1_MouseMove(ByVal sender As Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) _
Handles PictureBox1.MouseMove

If drawFlag = False Then
Exit Sub
End If
ptEnd = e.Location
Dim ptMove As Point
ptMove = ptEnd - ptStart
Dim MyLocation As Point
MyLocation = PictureBox1.Location + ptMove
PictureBox1.Location = MyLocation
PictureBox1.Refresh()
ptStart = ptEnd

End Sub

Private Sub PictureBox1_MouseDown(ByVal sender As Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) _
Handles PictureBox1.MouseDown

If e.Button = Windows.Forms.MouseButtons.Left Then
drawFlag = True
ptStart.X = e.X
ptStart.Y = e.Y
End If
End Sub

Private Sub PictureBox1_MouseUp(ByVal sender As Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) _
Handles PictureBox1.MouseUp

drawFlag = False
End Sub

回答No.1

cradoll

試していませんが
DoubleBufferedプロパティにTrueを設定してみたらどうでしょうか

参考URL：

http://msdn.microsoft.com/ja-jp/library/system.windows.forms.control.doublebuffered(v=vs.80).aspx