VB.NET AeroGlass SourceCode Release

[Hiatus]

Source Code :

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.Gray
    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
    Application.Exit()
  End Try
    End Sub
End Class

 

[Harlem9191]

That's been lying around the internet for yonks.
And credit the user who you got it from. Because that isn't yours.

 

[Hiatus]

That's been lying around the internet for yonks.
And credit the user who you got it from. Because that isn't yours.

I never said it was mine. I just posted it. And the author is visual studio. I know him in person. I've had college classes with him.

 

That's been lying around the internet for yonks.
And credit the user who you got it from. Because that isn't yours.

Actually it's very possible that anyone could have come up with this, it's really not that complicated at all. Personally, I even made a whole library for it a while back and posted it (can't remember if I posted it on Sythe).

What would be interesting to see would be your take on getting around the faulty rendering for colored labels and other controls that use the aero as a background.

 

[Crex]

Not only has this been posted all over the internet, it's not hard at all :l.
And it only works with 7 and Vista from what I remember

 

[General Trade]

Hey sorry for all those flamers but if you L2READS can't see its not his of course, hes not Bill Goats *cough* Gates for PEAT sake. Please don't flame him, at least he has the hulk testicles to post this unlike you lazy fucks. Okay I'd just like to say thanks for this!