Dim i&, j&, Bild As StdPicture, Breite&, Höhe&, N&
Dim QuellPfad$, ZielOrdner$
 
QuellPfad = "C:\Pictures\EinBild.bmp"
ZielOrdner = "C:\Pictures\Teile"
 
DoEvents
Me.ScaleMode = vbPixels
Set Bild = LoadPicture(QuellPfad)
N = 0
With Picture1
  .ScaleMode = vbPixels
  .BorderStyle = vbBSNone
  .Move 0, 0, 16, 16
  .AutoRedraw = True
  Breite = Int(0.5 + .ScaleX(Bild.Width, vbHimetric, vbPixels))
  Höhe = Int(0.5 + .ScaleY(Bild.Height, vbHimetric, vbPixels))
  For i = 0 To Breite - 1 Step 16
    For j = 0 To Höhe - 1 Step 16
      .Cls
      .PaintPicture Bild, 0, 0, 16, 16, i, j, 16, 16
      SavePicture .Image, ZielOrdner & "\Bild_" & Format(N, "000") & ".bmp"
      N = N + 1
      Me.Caption = N
      DoEvents
    Next j
  Next i
End With

Gruss,

Zardoz