Aero Glass View in VB.Net

Imports System.Runtime.InteropServices

Public Class Form1

   

  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

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Try

            Me.BackColor = Color.Black

            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)

        Catch ex As Exception

        End Try

    End Sub

End Class