VB .NET - Effects Glass no Formulário

Public Class Form1

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

        'Declara a variável Glass para ser usada

        Dim glass As New rtaGlassEffectsLib.rtaGlassEffect

        'Configura o tamanho do efeito no top

        glass.TopBarSize = 160

        'Mostra o efeito no formulátio

        glass.ShowEffect(Me)

        glass.BottomBarSize = 0

        glass.LeftBarSize = 0

        glass.HeaderLabel = Label2

        glass.ShowEffect(Me, Label1, PictureBox1)       

    End Sub

End Class

Para este projeto tive que adicionar a dll { rtaGlassEffectsLib.dll }e a mesma se encontra dentro do projeto na pasta bin.

 Pegue o projeto neste link: http://www.mediafire.com/?xe80jaw5n77544g

Espero que gostem e até a próxima, abraços!