Private BluePen As New Pen(Color.Blue, 5)
    Private RedBrush As New SolidBrush(Color.Red)
 
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Me.Paint
 
        Dim g As Graphics = e.Graphics
        g.DrawRectangle(BluePen, 50, 50, 400, 200)
        g.FillRectangle(RedBrush, 50, 50, 400, 200)
 
    End Sub