Can't figure out Sprites

Question

Okay so my partner and i have been working on this project for a while now and we are stuck with two thing. First we can't get the enemy sprite to go into the enemy picture box. Second we can't get the sprite sheet to shift down. We have tried multiple things
and we are stuck if someone could help that would be awesome.
Here is our code:
Option Strict On
Public Class frmMain
Dim ctr As SByte = 1
Dim playerSpeed As Byte = 5
Dim enemyMove As Boolean = False
Dim enemySpeed As Point = New Point(-10, 0)
Dim characterMain As PictureBox = New PictureBox()
Dim enemyMain As PictureBox = New PictureBox()
Dim titleScreen As PictureBox = New PictureBox()
Dim frames(8) As Bitmap
Dim Archer As Bitmap = New Bitmap("./Resources/Images/Character_Models/Archer_2.bmp")
Dim Warrior As Bitmap = New Bitmap("./Resources/Images/Character_Models/Warrior_2.bmp")
Dim Mage As Bitmap = New Bitmap("./Resources/Images/Character_Models/Mage_2.bmp")
Dim Boss As Bitmap = New Bitmap("./Resources/Images/Character_Models/Final_Boss.bmp")
Const CHARACTER_WIDTH As Short = 37
Const CHARACTER_HEIGHT As Short = 43
Public Sub clearScreen()
For Each screenControl As Control In Me.Controls
screenControl.Visible = False
screenControl.Enabled = False
Next
End Sub
Private Sub btnNewGame_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNewGame.Click
lblTitle.Text = "Character Selection"
btnNewGame.Visible = False
btnRules.Visible = False
cboChar.Visible = True
btnStartGame.Visible = True
Me.Controls.Add(characterMain)
Me.Controls.Add(titleScreen)
Me.Controls.Add(enemyMain)
btnBack.Visible = True
End Sub
Private Sub btnRules_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRules.Click
MessageBox.Show("Click new game to start new game", "Instructions", MessageBoxButtons.OK)
MessageBox.Show("Use WASD to move your character", "Instructions", MessageBoxButtons.OK)
End Sub
Private Sub btnStartGame_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnStartGame.Click
clearScreen()
PlayBackgroundSoundFile()
titleScreen.Size = New Size(576, 720)
enemyMain.Size = New Size(CHARACTER_WIDTH, CHARACTER_HEIGHT)
enemyMain.Location = New Point(0, 500)
characterMain.Size = New Size(CHARACTER_WIDTH, CHARACTER_HEIGHT)
characterMain.Location = New Point(0, 500)
titleScreen.Location = New Point(0, 0)
titleScreen.Visible = True
characterMain.Visible = True
characterMain.Enabled = True
enemyMain.Visible = True
enemyMain.Enabled = True
titleScreen.Image = Image.FromFile("./Resources/Images/Terrain/TitleBG.jpg")
titleScreen.SizeMode = PictureBoxSizeMode.StretchImage
Me.Size = titleScreen.Size
For x As Integer = 0 To 8
frames(x) = New Bitmap(CHARACTER_WIDTH, CHARACTER_HEIGHT)
Dim gr As Graphics = Graphics.FromImage(frames(x))
Dim leftPos As Integer
Select Case x
Case 1, 4, 7
leftPos = 32
Case 2, 5, 8
leftPos = 64
Case 3, 6, 9
leftPos = 96
End Select
gr.DrawImage(Boss, 0, 0, New RectangleF(leftPos, CSng(Int(x / 2) * 0), CHARACTER_WIDTH, CHARACTER_HEIGHT), GraphicsUnit.Pixel)
If cboChar.Text = "Archer" Then
gr.DrawImage(Archer, 0, 0, New RectangleF(leftPos, CSng(Int(x / 2) * 0), CHARACTER_WIDTH, CHARACTER_HEIGHT), GraphicsUnit.Pixel)
Else
characterMain.Image = Nothing
End If
If cboChar.Text = "Warrior" Then
gr.DrawImage(Warrior, 0, 0, New RectangleF(leftPos, CSng(Int(x / 2) * 0), CHARACTER_WIDTH, CHARACTER_HEIGHT), GraphicsUnit.Pixel)
Else
characterMain.Image = Nothing
End If
If cboChar.Text = "Mage" Then
gr.DrawImage(Mage, 0, 0, New RectangleF(leftPos, CSng(Int(x / 2) * 0), CHARACTER_WIDTH, CHARACTER_HEIGHT), GraphicsUnit.Pixel)
Else
characterMain.Image = Nothing
End If
Next
CenterToScreen()
End Sub
Private Sub frmMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
enemyMove = True
If tmrEnemyMove.Enabled = False Then
tmrEnemyMove.Enabled = True
End If
Select Case e.KeyCode
Case Keys.A
If ctr < 8 Then
characterMain.Location += New System.Drawing.Size(-1 * playerSpeed, 0)
ctr = CSByte(ctr + 1)
Else
ctr = 0
End If
characterMain.Image = frames(ctr)
Case Keys.S
If ctr < 8 Then
characterMain.Location += New System.Drawing.Size(0, playerSpeed)
ctr = CSByte(ctr + 1)
Else
ctr = 0
End If
characterMain.Image = frames(ctr)
Case Keys.D
If ctr < 8 Then
characterMain.Location += New System.Drawing.Size(playerSpeed, 0)
ctr = CSByte(ctr + 1)
'characterMain.Image.RotateFlip(RotateFlipType.RotateNoneFlipX)
Else
ctr = 0
End If
characterMain.Image = frames(ctr)
Case Keys.W
If ctr < 8 Then
characterMain.Location += New System.Drawing.Size(0, -1 * playerSpeed)
ctr = CSByte(ctr + 1)
Else
ctr = 0
End If
characterMain.Image = frames(ctr)
Case Keys.Escape
Me.Close()
End Select
Constrain(enemyMain, New Rectangle(New Point(0, 0), Me.Size))
Constrain(characterMain, New Rectangle(New Point(0, 0), Me.Size))
End Sub
Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
CenterToScreen()
End Sub
Private Sub cboChar_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboChar.TextChanged
btnStartGame.Enabled = True
End Sub
Private Sub btnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBack.Click
lblTitle.Visible = True
btnNewGame.Visible = True
btnRules.Visible = True
btnBack.Visible = False
lblTitle.Text = "Reign of Pixel"
cboChar.Visible = False
btnStartGame.Visible = False
End Sub
Private Function Constrain(ByRef box As PictureBox, ByVal boundingBox As Rectangle) As Boolean
With box.Location
If (.X < boundingBox.X) Then
box.Location = New Point(boundingBox.X, .Y)
ElseIf (.X > (boundingBox.X + boundingBox.Width) - box.Width) Then
box.Location = New Point((boundingBox.X + boundingBox.Width) - box.Width, .Y)
End If
If (.Y < boundingBox.Y) Then
box.Location = New Point(.X, boundingBox.Y)
ElseIf (.Y > (boundingBox.Y + boundingBox.Height) - box.Height) Then
box.Location = New Point(.X, (boundingBox.Y + boundingBox.Height) - box.Height)
End If
End With
End Function
Private Sub tmrAnimation_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tmrAnimation.Tick
While Keys.A = Keys.Down And ctr < 8
ctr = CSByte(ctr + 1)
If ctr <> 8 Then
tmrAnimation.Enabled = True
Else
tmrAnimation.Enabled = False
End If
End While
End Sub
Private Sub tmrEnemyMove_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tmrEnemyMove.Tick
If (enemyMove = False) Then
tmrEnemyMove.Enabled = False
End If
If (Constrain(enemyMain, New Rectangle(New Point(0, 0), Me.Size))) Then
enemySpeed = New Point(enemySpeed.X * -1, enemySpeed.Y * -1)
End If
End Sub
Private Sub PlayBackgroundSoundFile()
My.Computer.Audio.Play("./Resources/Sound/ReignOfPixel.wav", AudioPlayMode.Background)
End Sub
End Class

Answer 1

If you have a sprite, you should pre-crop each frame into a list of image, that way as each frame elapses, you simply set the pictureboxes image to one of the pre-cropped images.
Don't forget to vote for Helpful Posts and
Mark Answers!
*This post does not reflect the opinion of Microsoft, or its employees.