Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
        bmp = New Bitmap(7000, 11000) 
        Using g As Graphics = Graphics.FromImage(bmp)
            g.FillRectangle(Brushes.Red, New Rectangle(0, 0, 7000, 11000))
        End Using
        PictureBox1.Image = bmp
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist