shapeコントロールをマウスで動かすには？ (ID:117260)

名前

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

本文 shapeコントロールをマウスで動かすようにしたいのですが、ドラッグしようとするとカーソルがドラッグ対象物の左角に動いたり、対象物上でない所でダブルクリックし動かすと、そこにshapeコントロールが一瞬で移動してしまいます。どのようにしたら良いのか教えてください。 Dim a As Boolean Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) a = True End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If a = True Then Shape1.Move X, Y End If End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) a = False End Sub コードはこんな感じです。お願いします。