Dim g As Graphics = Me.CreateGraphics
      Dim p As New Pen(Color.Blue, 3)
      Dim r As Rectangle
 
      r = New Rectangle(100, 100, 200, 300)
      g.DrawRectangle(p, r)
      g.FillRectangle(Brushes.Beige, r)