Dim bmp_in As New Bitmap("C:\Hintergrund\....")  'Bilddatei-Pfad
        Dim bmp As New Bitmap(Me.Width, Me.Height, _
        Imaging.PixelFormat.Format24bppRgb)
        Dim g As Graphics = Graphics.FromImage(bmp)
        g.DrawImage(bmp_in, 0, 0, Me.Width, Me.Height)
        g.Dispose()
        Me.BackgroundImage = bmp