Full Glass en Visual basic

Ola de nuevo en mi segundo post.
He estado chekando y viendo algunas pagina donde publican el codigo y me gustaria postearlo aki para que personas interesadas puedan obtener el codigo.

en el codigo borran todo y copian lo de abajo ya despues de ay añadenle textbox, botones etc. si kieren que aparezcan tambien en full glass, en back color ponganle negro, en si negro de fondo es = a glass xD

Imports System.Runtime.InteropServices


Public Class Form1
<Runtime.InteropServices.StructLayout(Runtime.InteropServices.LayoutKind.Sequential)> Public Structure MARGINS
Public LeftWidth As Integer
Public RightWidth As Integer
Public TopHeight As Integer
Public Buttomheight As Integer
End Structure


<Runtime.InteropServices.DllImport("dwmapi.dll"> Public Shared Function DwmExtendFrameIntoClientArea(ByVal hWnd As IntPtr, ByRef pMarinset As MARGINS) 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 margins As MARGINS = New MARGINS
margins.LeftWidth = -1
margins.RightWidth = -1
margins.TopHeight = -1
margins.Buttomheight = -1
Dim result As Integer = DwmExtendFrameIntoClientArea(Me.Handle, margins)
Catch ex As Exception
MsgBox("aero style!", vbCritical, "Fatal Error"
Application.Exit()
End Try
End Sub
End Class




Para los que quieran la fuente de donde saque el codigo pido disculpas, no me acuerdo donde qedo la pagina donde lo encontre xD y ps ay tenia el codigo por ay guardado en un txt y ps aki esta jejeje hasta el proximo post

PD: el codigo segun tengo entendido es para Vb 2010 y el 2008, y ps creo que lo mas ovio es que los requisitos son tener windows vista o seven que son los que traen el glass style. aunque no lo e probado en windows vista (manejo win7) cya .