Start by creating a new project (windows forms application) and call it Aero Effect.


Double click form1 once the design has loaded.
Add the following codes:


Imports System.Runtime.InteropServices
Public Class Form1
    
        Public cxLeftWidth As Integer
        Public cxRightWidth As Integer
        Public cyTopHeight As Integer
        Public cyButtomheight As Integer
    End Structure
    
    End Function
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            BackColor = Color.Black
            Dim margins As MARGINS = New MARGINS
            margins.cxLeftWidth = 0
            margins.cxRightWidth = 0
            margins.cyTopHeight = 50
            margins.cyButtomheight = 0

            Dim result As Integer = DwmExtendFrameIntoClientArea(Me.Handle, margins)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
End Class