blass1234

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 .