Public Class Form1

Private Sub PaintObj(ByVal e As PaintEventArgs)

Dim graphics As Graphics = e.Graphics

Dim pen As New Pen(Color.Blue) ' Opaque blue

        graphics.DrawRectangle(pen, 10, 10, 200, 100)

End Sub

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint

        PaintObj(e)

End Sub

End Class