找了一会：好像就是用下面的代码就可以实现win7玻璃样窗口了

全局代码：

Public Declare Function DwmIsCompositionEnabled Lib "dwmapi.dll" Alias "DwmIsCompositionEnabled" (ByRef pfEnabled As Boolean) As Integer
Public Declare Function DwmExtendFrameIntoClientArea Lib "dwmapi.dll" Alias "DwmExtendFrameIntoClientArea" (ByVal hWnd As IntPtr, ByRef pMargin As Margins) As Integer

Public Structure Margins
    Public Left As Integer
    Public Right As Integer
    Public Top As Integer
    Public Bottom As Integer
End Structure

Dim pMargins As Margins
Public Sub WIN7Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
    pMargins = New Margins
    pMargins.Top = 40
    Dim en As Boolean = False
    If System.Environment.OSVersion.Version.Major >= 6 Then  \'如果是Vista系统或以上
        DwmIsCompositionEnabled (en) \'取得是否开启了Aero效果
        If en Then
            DwmExtendFrameIntoClientArea(sender.Handle, pMargins)
            sender.TransparencyKey = Color.FromArgb(250, 250, 2)
            sender.BackColor = sender.TransparencyKey
        End If
    End If
End Sub

用上面的代码可以使窗口边缘玻璃化。我现在不想用玻璃窗口了，删除了上面的代码，但是窗口玻璃边还是依然存在，在控制面板的个性化设置中设置好像没得用，该怎么办，谢谢！

删除上面的代码，删除bin文件夹，重新打开项目看看是否正常。

不行的话，做个例子测试。