DefLng A-Z
 
Sub FormFuellen(objForm As Form, Image As Picture)
    Dim intX As Integer
    Dim intY As Integer
    Dim sngWidth As Single
    Dim sngHeight As Single
 
    sngWidth = Image.Width / 2
    sngHeight = Image.Height / 2
 
    For intX = 0 To Int(objForm.ScaleWidth / sngWidth)
For intY = 0 To Int(objForm.ScaleHeight / sngHeight)
objForm.PaintPicture Image, intX * sngWidth, intY * sngHeight, sngWidth, _
  sngHeight, 0, 0
        Next
    Next
End Sub</pre
Erstelle auf deiner Form einen CommandButton und kopiere hinein:
<pre><code>Private Sub Command1_Click()
FormFuellen Form1, LoadPicture("DeinBild.jpg")
End Sub