デザイン画面のような処理をするには？ (ID:112429)

名前

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

本文 >シェイプのようなイベントを取れないコントロール フォームのイベントで取れば？ Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) With Me.Shape1 If (Y >= .Top And Y <= .Top + .Height) _ And (X >= .Left And X <= .Left + .Width) Then .Top = .Top + 500 End If End With End Sub