FullAero

Wenn man Windows Vista/7 verwendet und Windows Aero aktiviert hat, dann geschieht etwas in Verbindung mit diesem Code:

FullAero.Load(Me)

Dann noch die Klasse dazu:
Was dabei passiert? Nichts Außergewöhnliches XD

Class FullAero
  Shared Sub Load(ByVal form As Form)
    Try
      Dim margins As New MARGINS
      margins.cxLeftWidth = -1
      margins.cxRightWidth = -1
      margins.cyTopHeight = -1
      margins.cyButtomheight = -1
      DwmExtendFrameIntoClientArea(form.Handle, margins)
      form.BackColor = Color.Black
    Catch ex As Exception
      MsgBox(ex.Message)
    End Try
  End Sub
  <Runtime.InteropServices.DllImport("dwmapi.dll")> _
  Private Shared Function DwmExtendFrameIntoClientArea( _
    ByVal handle As IntPtr,
    ByRef border As MARGINS) As Integer
  End Function
  Private Structure MARGINS
    Public cxLeftWidth As Integer
    Public cxRightWidth As Integer
    Public cyTopHeight As Integer
    Public cyButtomheight As Integer
  End Structure
End Class