3
Contributors
2
Replies
7
Views
8 Years
Discussion Span
Last Post by sonia sardana
0
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub

    Protected Overrides Sub OnPaint(ByVal pe As System.Windows.Forms.PaintEventArgs)
 Dim pn As New Pen(Color.Green)
        pn.Width = 5
        pe.Graphics.DrawRectangle(pn, 0, 0, Me.Width - pn.Width, Me.Height - pn.Width)
        pn = Nothing
    End Sub

End Class
This question has already been answered. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.