AeroGlass form

Very cool effect, isn’t it?…It is very easy to get as well!

Import this:

Imports System.Runtime.InteropServices

Declare theese:

<Runtime.InteropServices.StructLayout(Runtime.InteropServices.LayoutKind.Sequential)> Public Structure Side
        Public Left As Integer
        Public Right As Integer
        Public Top As Integer
        Public Bottom As Integer
End Structure
<Runtime.InteropServices.DllImport("dwmapi.dll")> Public Shared Function DwmExtendFrameIntoClientArea(ByVal hWnd As IntPtr, ByRef pMarinset As Side) As Integer
End Function

On form load add this code:

Me.BackColor = Color.Fuchsia 
Dim Side As Side = New Side
Side.Left = -1
Side.Right = -1
Side.Top = -1
Side.Bottom = -1
Dim result As Integer = DwmExtendFrameIntoClientArea(Me.Handle, Side)