Imports System.Runtime.InteropServices
Namespace GlassCreator
    Public Class AeroForm
        Public Shared Function ExtendGlassFrame _
            (ByVal hwnd As IntPtr, _
              ByVal margin As Integer, _
              ByVal clr As Color) As Boolean
 
            System.Windows.Forms.Form.FromHandle(hwnd).BackColor = clr
 
            AeroForm.DwmExtendFrameIntoClientArea(hwnd, margin)
 
            Return True
 
        End Function
 
        <DllImport("dwmapi.dll", PreserveSig:=False)>
        Private Shared Sub DwmExtendFrameIntoClientArea(ByVal hwnd As IntPtr, _
          ByRef margins As Integer)
        End Sub
 
End Class
 
End Namespace

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles
MyBase.Load
        GlassCreator.AeroForm.ExtendGlassFrame(Me.Handle, 1, _
          System.Drawing.SystemColors.ActiveCaptionText)
    End Sub