Rounded Form Component

Imports System.Windows.Forms
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.ComponentModel
Imports System.Runtime.InteropServices

Public Class ProjektRoundedForm
    Inherits Component

    Private _selectedForm As Form
    Private _borderSize As Integer = 20

    Public Property SelectedForm As Form
        Get
            Return _selectedForm
        End Get
        Set(value As Form)
            _selectedForm = value
            _selectedForm.Region = Region.FromHrgn(ProjektRoundedForm.CreateRoundRectRgn(0, 0, Me._selectedForm.Width, Me._selectedForm.Height, _borderSize, _borderSize))
            _selectedForm.Invalidate()
        End Set
    End Property
    <Category("Projekt")>
    Public Property BorderSize As Integer
        Get
            Return _borderSize
        End Get
        Set(value As Integer)
            _borderSize = value
            '_selectedForm.Invalidate()
        End Set
    End Property

    <DllImport("Gdi32.dll", EntryPoint:="CreateRoundRectRgn")>'Creates rounded form
    Private Shared Function CreateRoundRectRgn(ByVal nLeftRect As Integer, ByVal nTopRect As Integer, ByVal nRightRect As Integer, ByVal nBottomRect As Integer, ByVal nWidthEllipse As Integer, ByVal nHeightEllipse As Integer) As IntPtr
    End Function

End Class