Space Images in Background

Private Sub Space_Images()
Dim PicCols As Integer
Dim PicRows As Integer
Dim HExtraSpace As Integer
Dim VExtraSpace As Integer
Dim HSpacing As Integer
Dim VSpacing As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
On Error Resume Next
 'Calculate the appropriate spacings
 PicCols = CInt((Me.Width / picPicture(0).Width) - 0.5)
 PicRows = CInt((Me.Height / picPicture(0).Height) - 0.5)
 HExtraSpace = Me.Width - (picPicture(0).Width * PicCols)
 VExtraSpace = Me.Height - (picPicture(0).Height * PicRows)
 HSpacing = CInt((HExtraSpace / (PicCols + 1)) - 0.5)
 VSpacing = CInt((VExtraSpace / (PicRows + 1)) - 0.5)
 
 'Display the background images
 For i = 0 To PicRows - 1
 For j = 0 To PicCols - 1
  k = (PicCols * i) + j
  Load picPicture(k)
  picPicture(k).Left = (HSpacing * (j + 1)) + (picPicture(0).Width * j)
  picPicture(k).Top = (VSpacing * (i + 1)) + (picPicture(0).Height * i)
  picPicture(k).Visible = True
 Next j
 Next i
 
End Sub