07/05/20 23:08:36
>>284
こんな感じでしょうか？
Public Class km
Private Sub km_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
Select Case e.KeyCode
Case Keys.Left
If PictureBox1.Left > 0 Then
PictureBox1.Left -= 6
End If
Case Keys.Right
If PictureBox1.Left + PictureBox1.Width < Me.ClientSize.Width Then
PictureBox1.Left += 6
End If
End Select
End Sub
End Class