Public Function screen_erstellen(ByVal sFile As String, ByVal breite As _
  Integer, ByVal hoehe As Integer, ByVal nFormat As ImageFormat, ByVal sNewFile _
  As String) As Boolean
        Dim originalBild As Image = Image.FromFile(sFile)
        Dim neuesBild As Image
        With originalBild
            neuesBild = New Bitmap(CInt(.Width - .Width + breite), CInt(.Height _
              - .Height + hoehe))
        End With
        Dim destGraphic As Graphics = Graphics.FromImage(neuesBild)
        With neuesBild
            destGraphic.DrawImage(originalBild, 0, 0, .Width + 1, .Height + 1)
        End With
        Try
            neuesBild.Save(sNewFile, nFormat)
            destGraphic.Dispose()
            Return True
        Catch ex As Exception
            destGraphic.Dispose()
            Return False
        End Try
    End Function