Windows Vista & 7 Glass Effect

[Pc_Not_Mac]

Now that is just plain awesome, especially with how easy it is

Any idea to how it runs on an XP system?

Edit: It'll crash in the form load event but that's easy to work around since you can do an OSVersion.Major check before setting the Vista/Win7 api call, which means you're able to use a different theme instead for the older systems

This is pretty slick

I fixed up the code.
So now it will check the users OS before loading the glass.
I mean you can try to download dwmapi.dll and place it to Windows32 Folder but i do not think that it will work.

Imports System.Runtime.InteropServices
Public Class Form1
    <Runtime.InteropServices.StructLayout(Runtime.InteropServices.LayoutKind.Sequential)> Public Structure Side
        Public Left As Integer
        Public Right As Integer
        Public Top As Integer
        Public Buttom 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
        Dim strr As String = UCase(My.Computer.Info.OSFullName)
        If strr.Contains("VISTA") Or strr.Contains("WINDOWS 7") Then
            Try
                Me.BackColor = Color.Black 'It has to be black
                Dim side As Side = New Side
                side.Left = -1
                side.Right = -1
                side.Top = -1
                side.Buttom = -1
                Dim result As Integer = DwmExtendFrameIntoClientArea(Me.Handle, side)
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
        Else
            MsgBox("Your OS " & My.Computer.Info.OSFullName.ToString & " Is Supported With Glass.", MsgBoxStyle.Exclamation, "Error Loading dwmapi.dll")
        End If
    End Sub
End Class

It looks great, but I don't know how useful it is, because control on it don't look that great...

If you were to drag that over a black picture it would look normal.
But i know that is a bug and i will try to fix it.