Private BildGes As Image = Image.FromFile("C:\Dokumente und" & _
      "Einstellungen\Niko\Eigene Dateien\Eigene" & _
      "Bilder\Hintergründe\3D-sunset.jpg")
    Private Bild1 As Image
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Bild1 = GetImagePart(BildGes, New RectangleF(0, 0, 500, 500))
    End Sub
 
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        e.Graphics.DrawImage(Bild1, 0, 0)
    End Sub
 
    Public Function GetImagePart(ByVal vImage As Image, ByVal vRect As _
      RectangleF) As Image
        Dim Ret As New Bitmap(vRect.Width, vRect.Height, _
        System.Drawing.Imaging.PixelFormat.Format32bppArgb)
        Dim g As Graphics = Graphics.FromImage(Ret)
        g.DrawImage(vImage, 0, 0, vRect, GraphicsUnit.Pixel)
        Return Ret
    End Function