Objetos estilo XP en VB.NET

Bueno este truco me he decido a publicarlo porque lo considero muy interesante y puede ser de gran ayuda para todo desarrollador de aplicaciones .NET, que utlize Visual Studio .NET 2003 y quiera darle un estilo diferente a sus aplicaciones.

En este caso, las aplicaciones que creamos con el Visual Studio .NET 2003, traen por defecto la interfaz de Windows 98/2000 etc.., menos la de XP. Pero aunque no lo crean le podemos dar la apariencia a los TextBox's, Button, en fin a muchos objetos que tengamos en un Formulario.

Empezemos...

1. Creamos una WindowsApplication en VB.NET

2. Damos doble clic sobre el Formulario

Luego creamos este metodo
'---------------------------------------------------------------------------'
'Public Shared Sub main() '
' '
'Application.EnabledVisualStyles() 'Aqui activamos los estilos visuales XP '
'ApplicationRun(New Form1) 'Aqui le indicamos sobre que lo queremos '
'---------------------------------------------------------------------------'
End Sub

Luego localizamos la propiedad de los objetos en este caso sea la propiedad FlatStyle la pondremos que es igual a System.
Algo que es curioso es que los TextBox no poseen esta propiedad, pero, inmediatamente hacemos el procedimiento e insertamos un TextBox, cuando compilas, adquieren el estilo XP
sin embargo los botones no.

pero si queremos hacerlo por codigo lo podemos hacer asi, en el evento Load del formulario hacemos esto.
'------------------------------------------'
'Me.Button1.FlatStyle = FlatStyle.System '
'------------------------------------------'
para volver al estilo por defecto solo tenemos que poner Standar en vez de System.

Bueno espero que te haya gustado, a mi me ENCANTO!!!!

Nota: Ya en VB.NET 2005 no tendremos que usar este metodo ya que por defecto (Standar) lo trae con XP.