Dim g As Graphics = Me.CreateGraphics
        g.DrawRectangle(New Pen(Color.Red), New Rectangle(10, 10, 100, 200))

    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        Dim g As Graphics = e.Graphics
        Dim r As Rectangle = New Rectangle(10, 10, 100, 200)
        Dim r2 As Rectangle = New Rectangle(9, 9, 198, 198)
        g.DrawRectangle(New Pen(Color.Red, 2), r)
        g.FillRectangle(Brushes.Green, r)
    End Sub