Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim re As New Rectangle(10, 10, 200, 100)
        e.Graphics.FillRectangle(Brushes.Gold, re)      ' gefülltes Rechteck mit
        e.Graphics.DrawRectangle(Pens.Black, re)        ' schwarzem Rahmen
End Sub