Visual Basic

Public Class Form1<br />
    <Runtime.InteropServices.DllImport("dwmapi.dll", CharSet:=CharSet.Auto)> _<br />
    Public Shared Sub DwmExtendFrameIntoClientArea(ByVal hWnd As System.IntPtr, ByRef pMargins As Margins)<br />
    End Sub<br />
<br />
    <Runtime.InteropServices.DllImport("dwmapi.dll", CharSet:=CharSet.Auto)> _<br />
    Public Shared Sub DwmIsCompositionEnabled(ByRef IsIt As Boolean)<br />
    End Sub<br />
    <System.Runtime.InteropServices.DllImport("user32.dll")> _<br />
    Private Shared Function SetLayeredWindowAttributes(ByVal hWnd As IntPtr, ByVal crKey As Int32, ByVal bAlpha As Byte, ByVal dwFlags As Int32) As Boolean<br />
    End Function<br />
<br />
    Const COLORREF As Int32 = -65281<br />
    Const LWA_COLORKEY As Int32 = 1<br />
<br />
    Public Structure Margins<br />
        Public Left As Integer<br />
        Public Right As Integer<br />
        Public Top As Integer<br />
        Public Bottom As Integer<br />
    End Structure<br />
    Private inset As Margins = New Margins<br />
<br />
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
<br />
        Me.BackColor = Color.FromArgb(COLORREF)<br />
        'Me.TransparencyKey = Color.FromArgb(COLORREF)<br />
<br />
        SetLayeredWindowAttributes(Me.Handle, COLORREF, 80, LWA_COLORKEY)<br />
        Dim marg As New Margins<br />
        marg.Bottom = -1<br />
        marg.Left = -1<br />
        marg.Top = -1<br />
        marg.Right = -1<br />
<br />
        DwmExtendFrameIntoClientArea(Me.Handle, marg)<br />
<br />
    End Sub<br />
End Class