Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim r As New Region(New RectangleF(0, 0, Me.Width, Me.Height))
 
        For i As Integer = 0 To Me.Width - 8 Step 8
            For j As Integer = 0 To Me.Height - 8 Step 8
                r.Exclude(New RectangleF(i, j, 4, 4))
            Next
        Next
        Me.Region = r
    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