simple problem

I want to create a chessboard composed of labels, this works fine for the top row, but how do i employ the move function to move onto the next line


Private Sub Form_Load()

board.Width = 8000
board.Height = 8000
Dim c, lcount As Integer
Dim col As Boolean

For c = 1 To 7 ' do horizontal
Load lblsquare(c)
lcount = lcount + 1
If col = False Then ' for colour
lblsquare(c).BackColor = vbWhite
col = True
Else: col = False
End If


lblsquare(c).Height = (board.Height / 8) 'put square in correct position
lblsquare(c).Width = (board.Width / 8)
lblsquare(c).Move c * 1000
lblsquare(c).Visible = True


Next c

End Sub