キーを押して移動するには？ (ID:117017)

名前

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

本文 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyenter jettosetto2.Visible = True End Select End Sub といったコードを書いてみたんですが、うまくいきません。 どう変えればいいのでしょうか？