ドラッグ処理を加えたピクチャーボックスについて (ID:117560)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 はじめまして。 Line処理で描画した後に、ピクチャーボックスを移動させるための処理を行っているのですが、 ドラッグせずにクリックすると、描画したものが消えてしまいます。 クリックしても消えないようにしたいのですが どうしたらいいのかわかりません。 Picture1のAutoRedrawはTrueをデフォルトで設定していて、 ソースは以下の様にしています。 Private XPos As Single Private YPos As Single Private Sub Picture1_MouseDown(〜省略〜) '座標の取得 XPos = X YPos = Y If TypeOf Picture1 Is PictureBox Then Obj.DrawMode = 1 'ドラッグの開始 If Button = vbLeftButton Then Obj.Drag vbBeginDrag End Sub Private Sub Picture1_MouseUp(〜省略〜) If Button = vbLeftButton Then Picture1.Drag vbEndDrag End Sub Private Sub Picture1_DragDrop(〜省略〜) Source.Move (Picture1.Left + X - XPos), (Picture1.Top + Y - YPos) If TypeOf Source Is PictureBox Then Picture1.Picture = Surce.Picture End If End Sub 環境はWin2000のVB6.0です。 どなたか教えてください。 お願いします。