Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim AbstandOben As Integer = 0
        For SpaltenAnzahl As Integer = 0 To 5
            ReiheZeichnen(53 * SpaltenAnzahl, AbstandOben, 3)
            If AbstandOben = 0 Then AbstandOben += 35 Else AbstandOben -= 35
        Next
    End Sub
 
    Private Sub ReiheZeichnen(ByVal AbstandLinks As Integer, ByVal AbstandOben _
      As Integer, ByVal Anzahl As Integer)
        For Reihe As Integer = 0 To Anzahl
            Dim Path As New System.Drawing.Drawing2D.GraphicsPath
            Dim PointsA() As Point = {New Point(17, 0), New Point(53, 0), New _
              Point(71, 35), New Point(53, 71), New Point(17, 71), New Point(0, _
              34)}
            Path.AddPolygon(PointsA)
            Path.CloseAllFigures()
            Dim x As New Panel
            x.Location = New Point(AbstandLinks, AbstandOben + (Reihe * 71))
            x.Size = New Size(72, 72)
            x.BackColor = Color.Green
            x.BackgroundImage = Image.FromFile("C:\ford.png")
            x.Region = New Region(Path)
            AddHandler x.MouseEnter, AddressOf Feld_MouseEnter
            AddHandler x.MouseLeave, AddressOf Feld_MouseLeave
            Panel1.Controls.Add(x)
        Next
    End Sub
 
    Private Sub Feld_MouseEnter(ByVal sender As Object, ByVal e As _
      System.EventArgs)
        sender.BackgroundImage = Nothing
    End Sub
 
    Private Sub Feld_MouseLeave(ByVal sender As Object, ByVal e As _
      System.EventArgs)
        sender.BackgroundImage = Image.FromFile("C:\ford.png")
    End Sub