Public Sub ShowPreview()
  ' Vorschau neu anzeigen
  With Picture1
    StretchBlt .hdc, 0, 0, .ScaleWidth, .ScaleHeight, _
      Picture2.hdc, 0, 0, _
      Picture2.ScaleWidth, _
      Picture2.ScaleHeight, vbSrcCopy
  End With
End Sub

Public Sub ShowPreview()
Dim Retval As Long
' Vorschau neu anzeigen
  Retval = StretchBlt(Picture1.hdc, 0, 0, _
                      Picture1.ScaleWidth, _
                      Picture1.ScaleHeight, _
                      Picture2.hdc, 0, 0, _
                      Picture2.ScaleWidth, _
                      Picture2.ScaleHeight, vbSrcCopy)
  If Retval = 0 Then
    MsgBox "Ein Fehler ist aufgetreten. Waren alle Angaben korrekt?", _
    vbCritical, "Fehler"
  End If
End Sub