Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        Dim P As New Pen(Color.Black)
        Dim R As New Rectangle(10, 10, 50, 50)
        e.Graphics.DrawRectangle(P, R)
        P.Dispose()
    End Sub