' Kacheln
Dim XPos&, YPos&, Breite&, Hoehe&, TmpPic As StdPicture
Set TmpPic = LoadPicture("C:\EinBild.jpeg")
With Me
  .ScaleMode = vbPixels
  .AutoRedraw = True
  Breite = CLng(.ScaleX(TmpPic.Width, vbHimetric))
  Hoehe = CLng(.ScaleY(TmpPic.Height, vbHimetric))
  For XPos = 0 To .ScaleWidth - 1 Step Breite
    For YPos = 0 To .ScaleHeight - 1 Step Hoehe
      .PaintPicture TmpPic, XPos, YPos
    Next YPos
  Next XPos
  Set .Picture = .Image
  .Cls
  .AutoRedraw = False
End With
Set TmpPic = LoadPicture()

Gruss,

Zardoz