Creating a tiled background

[cable729]

Hi, I want to make a tiled background, but the following doesn't work:

Public Class Form1
    Dim Facing(0) As Integer         '1 = left, 2 = up, 3 = right, 4 = down
    Dim Length As Integer            'length of snake
    Dim Snake As Snake
    Dim Background(80 * 80) As PictureBox
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim x As Integer, y As Integer
 
        While x < 80
            While y < 80
                Background(x * y) = New PictureBox
                Background(x * y).Image = My.Resources.background
                Background(x * y).Location = New System.Drawing.Point(x * 10, y * 10)
                Controls.Add(Background(x * y))
                y = y + 1
            End While
            x = x + 1
            y = 0
        End While
    End Sub
End Class