''rettangolo senza riempimento
        Me.CreateGraphics().DrawRectangle(Pens.Red, New Rectangle(5, 5, 100, 100))

        ''rettangolo con riempimento
        Dim br As Drawing2D.LinearGradientBrush = New Drawing2D.LinearGradientBrush(New Point(125, 5), New Point(125 + 100, 5 + 100), Color.Blue, Color.Yellow)
        Me.CreateGraphics().FillRectangle(br, New Rectangle(125, 5, 100, 100))