Option Explicit
 
Private Sub Form_Load()
    Dim Bild1 As New StdPicture, Bild2 As New StdPicture, Bild3 As New _
      StdPicture
    Dim x As Long, x2 As Long
    Dim Breite As Integer
    Set Bild1 = LoadPicture("C:\Dokumente und Einstellungen\met\Eigene" & _
      "Dateien\Unsere Hochzeit\Gerd.bmp")
    Set Bild2 = LoadPicture("C:\Dokumente und Einstellungen\met\Eigene" & _
    "Dateien\Unsere Hochzeit\Nicole.bmp")
 
    Me.Show
    x2 = 0
    Breite = Fix(Bild1.Width / 50)
    picBild3.Width = Bild1.Width * 2
    picBild3.Height = Bild1.Height
    picBild3.AutoRedraw = True
    For x = 0 To Bild1.Width Step Breite
        picBild3.PaintPicture Bild1, x2, 0, Breite, Bild1.Height, x, 0, Breite, _
          Bild1.Height
        x2 = x2 + Breite
        picBild3.PaintPicture Bild2, x2, 0, Breite, Bild1.Height, x, 0, Breite, _
          Bild1.Height
        x2 = x2 + Breite
    Next x
    SavePicture picBild3.Image, "C:\Dokumente und Einstellungen\met\Eigene" & _
      "Dateien\Unsere Hochzeit\Ausgabe.bmp"
    Unload Me
End Sub