画面内だけにするには (ID:117413)

名前

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

本文 > Case vbKeyUp > Image1.Move Image1.Left, Image1.Top - 5 Case vbKeyUp If Image1.Top - 5 >= 0 Then Image1.Move Image1.Left, Image1.Top - 5 End If のように移動する命令の前にIf文で判断してやればいいです。 残りは試行錯誤して頑張って下さい。(^o^)