Dim Dat1$, Dat2$, Dat3$, SW!, SH!
 
Dat1 = "C:\Bild1.jpg"
Dat2 = "C:\Bild2.gif"
Dat3 = "C:\Bild3.jpg"
With Picture1
  .ScaleMode = vbPixels
  SW = .ScaleWidth
  SH = .ScaleHeight
  .AutoRedraw = True
  .Cls
  .PaintPicture LoadPicture(Dat1), 0, 0, SW / 2, SH / 2
  .PaintPicture LoadPicture(Dat2), SW / 2, 0, SW / 2, SH / 2
  .PaintPicture LoadPicture(Dat3), 0, SH / 2, SW / 2, SH / 2
End With

Gruss,

Zardoz