Imports System.Drawing.Drawing2D

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ' Für das füllen des Inneren von Grafikformen wie 
        ' Rechtecken, Kreisen, etc.
        Dim brush As LinearGradientBrush
        ' Array mit Farben und deren relativen Positionen für 
        ' den Farbverlauf.
        Dim cb As ColorBlend

        ' -----------------------------------------------------
        ' Farben für den Farbverlauf definieren
        ' -----------------------------------------------------
        ' Regenbogen Farben
        Dim Colors() = New Color() { _
           Color.Red, _
           Color.Orange, _
           Color.Yellow, _
           Color.Green, _
           Color.Blue, _
           Color.Indigo, _
           Color.Violet _
        }

        ' -------------------------------------------
        ' Alternative 1 - für die Kartendarstellung 1
        ' -------------------------------------------
        'Dim Colors() = New Color() { _
        '   Color.FromArgb(0, 170, 0), _
        '   Color.FromArgb(204, 153, 0), _
        '   Color.FromArgb(221, 221, 221), _
        '   Color.FromArgb(255, 255, 255) _
        '}

        ' -------------------------------------------
        ' Alternative 2 - für die Kartendarstellung 1
        ' -------------------------------------------
        'Dim Colors() = New Color() { _
        '   Color.FromArgb(0, 180, 0), _
        '   Color.FromArgb(250, 255, 0), _
        '   Color.FromArgb(250, 180, 50), _
        '   Color.FromArgb(175, 105, 12.5), _
        '   Color.FromArgb(100, 30, 12.5), _
        '   Color.FromArgb(50, 17.5, 10), _
        '   Color.FromArgb(255, 255, 255) _
        '}

        '
        ' Blender initialisieren und Farben hinzufügen
        '
        cb = New ColorBlend(Colors.Length)
        cb.Colors = Colors

        '
        ' Berechnen der relativen Positionen für 
        ' die Farben im Blender
        '
        Dim i As Integer = 0
        For f As Single = 0 To 1 Step 1.0F / (Colors.Length - 1)
            cb.Positions(i) = f
            i += 1
        Next f

        '
        ' Pinsel mit einem Linearen Farbverlauf erstellen
        '
        brush = New LinearGradientBrush(Panel1.ClientRectangle, _
                                        Color.Black, Color.Black, _
                                        LinearGradientMode.Horizontal, False)

        '
        ' Hier werden die Faben zwischen den zuvor angegebenen Farben
        ' berechnet.
        '
        brush.InterpolationColors = cb

        '
        ' Das in diesem Beispiel verwendete Panel mit dem
        ' zuvor erstellen Pinsel ausmalen
        '
        Panel1.CreateGraphics.FillRectangle(brush, Me.ClientRectangle)

    End Sub

End Class