Public Class frmBorder
 
    Dim FormBorderColor As Drawing.Color = Color.Red
 
    Private Sub frmBorder_Load(ByVal sender As System.Object, _
                               ByVal e As System.EventArgs) Handles MyBase.Load
 
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
    End Sub
 
    Private Sub frmBorder_Paint(ByVal sender As Object, _
                    ByVal e As System.Windows.Forms.PaintEventArgs) Handles _
                    Me.Paint
 
        Using borderpen As New Pen(FormBorderColor, 2)
            e.Graphics.DrawRectangle(borderpen, Me.ClientRectangle)
        End Using
    End Sub
End Class