كود لشفايفة ايرو Aero Glass Effect - نسخة قابلة للطباعة

كود :
Imports System.Runtime.InteropServices

Public Class Form1

    <StructLayout(LayoutKind.Sequential)>

    Public Structure MARGINS

        Public Left As Integer

        Public Right As Integer

        Public Top As Integer

        Public Bottom As Integer

    End Structure

    <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

        Dim margins As MARGINS = New MARGINS

        margins.Left = -1

        margins.Right = -1

        margins.Top = -1

        margins.Bottom = -1

        Dim hwnd As IntPtr = Handle

        Dim result As Integer = DwmExtendFrameIntoClientArea(hwnd, margins)

        Me.BackColor = Color.Black

    End Sub

End Class