[HomerChimpson]

I did not make the code, i simply added improvements.
Coded by my good friend Anon?M ID :angel:
Let's get started!

== Tutorial ==

1. Create a Console Application, name it whatever you want.

2. Add this code right below the text "Module Module1"

Code:

Private Enum DwmBlurBehindDwFlags
        ' Fields
        DWM_BB_BLURREGION = 2
        DWM_BB_ENABLE = 1
        DWM_BB_TRANSITIONONMAXIMIZED = 4
    End Enum
    <DllImport("Kernel32.dll", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
    Private Function GetConsoleWindow() As IntPtr
    End Function
    Private Structure DWM_BLURBEHIND
        Public dwFlags As DwmBlurBehindDwFlags
        Public fEnable As Boolean
        Public hRgnBlur As IntPtr
        Public fTransitionOnMaximized As Boolean
    End Structure
    <StructLayout(LayoutKind.Sequential)> _
    Public Structure MARGINS
        Public cxLeftWidth As Integer
        Public cxRightWidth As Integer
        Public cyTopHeight As Integer
        Public cyButtomheight As Integer
    End Structure
    <DllImport("dwmapi.dll", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
    Private Sub DwmEnableBlurBehindWindow(ByVal hwnd As IntPtr, ByRef blurBehind As DWM_BLURBEHIND)
    End Sub

3. And add this code to the Main Sub :

Code:

Dim blurBehind As New DWM_BLURBEHIND With { _
               .dwFlags = DwmBlurBehindDwFlags.DWM_BB_ENABLE, _
               .fEnable = True _
           }
        Module1.DwmEnableBlurBehindWindow(Module1.GetConsoleWindow, blurBehind)

4. What's that? errors you say? just add this code on the top :

Code:

Imports System.Runtime.InteropServices

== Finishing ==
Now, your code should look like this :

Add your own codes, Debug, and done! this is the end result :

Give credits to Anon?M ID if you'll use this :3
And leave positive feedback :angel: