ArrangePicture

Private Sub Form_Load()
With Picture1
.AutoSize = True
.BorderStyle = 0
.Visible = False
End With
End Sub

Private Sub Form_Paint()
Dim i As Long, j As Long
With Picture1
For i = 0 To Me.ScaleWidth Step .Width
For j = 0 To Me.ScaleHeight Step .Height
PaintPicture .Picture, i, j
Next j
Next i
End With
End Sub

Private Sub Form_Resize()
Me.Refresh
End Sub

-------------------------------------------------------------------------------------------------------------------------------------------