Private Const rows As Integer = 4
    Private Const cols As Integer = 3
 
    Public currentPanel As SuperPanel
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Dim panels(rows * cols - 1) As SuperPanel
        Dim h As Integer = CInt(Me.ClientSize.Height / rows)
        Dim w As Integer = CInt(Me.ClientSize.Width / cols)
        For i As Integer = 0 To rows - 1
            For j As Integer = 0 To cols - 1
                Dim pn As Integer = i * cols + j
                panels(pn) = New SuperPanel
                panels(pn).BackColor = System.Drawing.Color.Black
                panels(pn).BorderStyle = _
                  System.Windows.Forms.BorderStyle.Fixed3D
                panels(pn).Location = New System.Drawing.Point(j * w, i * h)
                panels(pn).Name = "Panel" & pn.ToString()
                panels(pn).Size = New System.Drawing.Size(w, h)
                panels(pn).TabIndex = pn
                panels(pn).Enabled = True
            Next
        Next
        Me.Controls.AddRange(panels)
 
    End Sub
 
    Public Class SuperPanel
        Inherits Panel
 
        Protected Overrides Sub OnClick(ByVal e As System.EventArgs)
            Dim f As Form1 = CType(Me.Parent, Form1)
            If Not f.currentPanel Is Nothing Then
                f.currentPanel.Unhilite()
            End If
            Hilite()
            f.currentPanel = Me
        End Sub
 
        Public Sub Hilite()
            Me.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), _
              CType(255, Byte), CType(192, Byte))
        End Sub
 
        Public Sub Unhilite()
            Me.BackColor = System.Drawing.Color.Black
        End Sub
 
    End Class

________
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