I'm trying to bring in some images from my resources folder and i keep getting an error

I'm trying to bring in some images from my resources folder and i keep
getting an error

Public Class Form1
Private Sub tmrChangeImage_Tick(ByVal sender As Object, ByVal e As
EventArgs) Handles tmrChangeImage.Tick
Const intMAXIMAGES As Integer = 5
Dim imgPictures(intMAXIMAGES - 1) As Image
Dim intImage As Integer
imgPictures(1) = My.Resources.ResourceManager.GetObject("flipbook_1_bio")
imgPictures(2) = My.Resources.ResourceManager.GetObject("flipbook_2_bio")
imgPictures(3) = My.Resources.ResourceManager.GetObject("flipbook_3_bio")
imgPictures(4) = My.Resources.ResourceManager.GetObject("flipbook_4_bio")
'strImageArray(5) = "flipbook (5)_bio"
'strImageArray(6) = "flipbook (6)_bio"
'strImageArray(7) = "flipbook (7)_bio"
'strImageArray(8) = "flipbook (8)_bio"
'strImageArray(9) = "flipbook (9)_bio"
'...
'strImageArray(20) = "flipbook (20)_bio"
'strImageArray(21) = "flipbook (21)_bio"
'strImageArray(22) = "flipbook (22)_bio"
'strImageArray(23) = "flipbook (23)_bio"
'strImageArray(24) = "flipbook (24)_bio"
Static intMAXIMAGES As Integer = 0 [Error]
PictureBox.Image = Properties.Resources.flipbook__1__bio [error]
intImage = (intImage + 1) Mod intMAXIMAGES
End Sub
End Class![I keep getting errors ][1]