改写自 c# 代码
参考 http://withinrafael.com/adding-the-aero-glass-blur-to-your-windows-10-apps/
先上图

首先添加引用
Imports System.Runtime.InteropServices
Imports System.Windows.Interop

Structure WindowsCompostionAttributeData
Public Attribute As WindowCompositionAttribute
Public Data As IntPtr
Public SizeOfData As Integer
End Structure
Enum WindowCompositionAttribute
WCA_ACCENT_POLICY = 19
End Enum
Enum AccentState
ACCENT_DISABLED = 0
ACCENT_ENABLE_GRADIENT = 1
ACCENT_ENABLE_TRANSPARENTGRADIENT = 2
ACCENT_ENABLE_BLURBEHIND = 3
ACCENT_INVALID_STATE = 4
End Enum
Structure AccentPolicy
Public AccentState As AccentState
Public AccentFlags As Integer
Public GradientColor As Integer
Public A***tionId As Integer
End Structure
Private Declare Function SetWindowCompositionAttribute Lib "user32.dll" (ByVal Hwnd As IntPtr, ByRef data As WindowsCompostionAttributeData) As Long
调用API

Sub EnableBlur()
Dim windowHelper As New WindowInteropHelper(Me)
Dim accent As New AccentPolicy()
Dim accentStructSize = Marshal.SizeOf(accent)
accent.AccentState = AccentState.ACCENT_ENABLE_BLURBEHIND
Dim accentPtr = Marshal.AllocHGlobal(accentStructSize)
Marshal.StructureToPtr(accent, accentPtr, False)
Dim data As New WindowsCompostionAttributeData() With {
.Attribute = WindowCompositionAttribute.WCA_ACCENT_POLICY,
.SizeOfData = accentStructSize,
.Data = accentPtr
}
SetWindowCompositionAttribute(windowHelper.Handle, data)
Marshal.FreeHGlobal(accentPtr)
End Sub
定义一个sub过程
然后在窗口的loaded事件里调用EnableBlur()
就可以啦

忘了说，窗口必须是半透明的。这点我就不赘述了。

另外，你得用Windows10 1607以上版本。

窗口颜色，我也不多说了。

不错。回头研究。

就是有颜色的近视眼效果么

翻译完了。https://github.com/Nukepayload2/sample-win10-aeroglass

看了楼上吧主的代码，我深深的感觉到我的代码太业余了。

有深意，研究一下

好帖

NEON既视感

此法已失效，特此告知。