If drawBm Then
            Dim c As Control = CType(sender, Control)
            Using b As SolidBrush = New SolidBrush(Color.FromArgb(128, 0, 0, 0))
                e.Graphics.FillRectangle(b, 0, 0, c.ClientSize.Width, _
                  c.ClientSize.Height)
            End Using
        End If

________
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