<font color=green>' Bild kacheln</font>
Dim x As Long
Dim y As Long
 
With Picture1
  .AutoRedraw = True
  For x = 0 To .ScaleWidth Step Image1.Width
    For y = 0 To .ScaleHeight Step Image1.Height
      .PaintPicture Image1, x, y
    Next y
  Next x
  .Picture = .Image
  .AutoRedraw = False
End With