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

名前

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

本文 VB6.0です。 ソースはここに記載してあるものでやっているのですが・・・ Private Sub Form_KeyDown(KeyCodeAs Integer, Shift As Integer) Select Case KeyCode Case vbKeyUp Image1.Move Image1.Left, Image1.Top - 5 Case vbKeyDown Image1.Move Image1.Left, Image1.Top + 5 Case vbKeyRight Image1.Move Image1.Left + 5 Case vbKeyLeft Image1.Move Image1.Left - 5 End Select End Sub のような感じです。