Option Explicit
 
Private Sub Form_Load()
 ' Form mit einer Picturebox picBild3
 ' Bild1 und Bild2 sind zwar auch PictureBoxen aber die brauchen wir, damit die 
 ' korrekte Breite bekommen
    Dim Bild1 As PictureBox, Bild2 As PictureBox
    Dim x As Long, x2 As Long
    Dim Breite As Integer
    Set Bild1 = picBild3
    Set Bild2 = picBild3
    Set Bild1.Picture = LoadPicture("C:\Dokumente und" & _
      "Einstellungen\Michael\Eigene Dateien\Privat\Fotos\Nachtschicht-01.jpg")
    Set Bild2.Picture = LoadPicture("C:\Dokumente und" & _
    "Einstellungen\Michael\Eigene Dateien\Privat\Fotos\Nachtschicht-02.jpg")
    Bild1.AutoSize = True
    Bild2.AutoSize = True
 
    Me.Show
    x2 = 0
    Breite = Bild1.Width / 20    ' 1)
    picBild3.Width = Bild1.Width * 2
    picBild3.Height = Bild1.Height
 
    picBild3.AutoRedraw = True
    For x = 0 To Bild1.Width / 2 - 2 * Breite Step Breite
        picBild3.PaintPicture Bild1.Picture, x2, 0, Breite + 10, Bild1.Height, _
          x, 0, Breite + 10, Bild1.Height
        x2 = x2 + Breite
        picBild3.PaintPicture Bild2.Picture, x2, 0, Breite + 10, Bild1.Height, _
          x, 0, Breite + 10, Bild1.Height
        x2 = x2 + Breite
    Next x
    picBild3.Width = x2 + Breite
    SavePicture picBild3.Image, "C:\Dokumente und Einstellungen\Michael\Eigene" & _
      "Dateien\Privat\Fotos\Nachtschicht-NEW.jpg"
    Unload Me
End Sub

>> <<