Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        Dim rect As New Rectangle(0, 0, Me.ClientSize.Width, _
        Me.ClientSize.Height)
        Dim lgb As LinearGradientBrush
        For angle As Integer = 0 To 180
            lgb = New LinearGradientBrush(rect, Color.DodgerBlue, Color.Black, _
              angle)
            e.Graphics.FillRectangle(lgb, rect)
            Debug.Write("Akueller Winkel: " & angle & Environment.NewLine)
        Next
    End Sub