Public Class Form1
Dim m As Integer = 10
Dim p(m) As Point
Dim k As Keys
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
'p(m).X += 16
Dim b As New Bitmap(256, 256)
Dim g As Graphics = Graphics.FromImage(b)
If k = Keys.Left Then
p(m).X -= 16
End If
If k = Keys.Right Then
p(m).X += 16
End If
If k = Keys.Up Then
p(m).Y -= 16
End If
If k = Keys.Down Then
p(m).Y += 16
End If
For i As Integer = 0 To m - 1
p(i) = p(i + 1)
g.FillRectangle(Brushes.Black, New Rectangle(p(i), New Size(16, 16)))
Next
g.FillRectangle(Brushes.Black, New Rectangle(p(m), New Size(16, 16)))
g.Dispose()
Me.BackgroundImage = b
Me.ClientSize = b.Size
Me.Refresh()
End Sub
Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
If e.KeyCode = Keys.Left Then
K = Keys.Left
End If
If e.KeyCode = Keys.Right Then
k = Keys.Right
End If
If e.KeyCode = Keys.Up Then
k = Keys.Up
End If
If e.KeyCode = Keys.Down Then
k = Keys.Down
End If
End Sub
End Class
