Imports System.Runtime.InteropServices
 
Public Class Form1
    Private margins1 As MARGINS
 
    <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")> _
    Public Shared Function DwmExtendFrameIntoClientArea(ByVal hWnd As IntPtr, _
    ByRef pMarinset As MARGINS) As Integer
    End Function
 
    <DllImport("dwmapi.dll", PreserveSig:=False)> _
 Public Shared Function DwmIsCompositionEnabled() As Boolean
    End Function
 
 
    Protected Overloads Overrides Sub OnLoad(ByVal e As EventArgs)
        MyBase.OnLoad(e)
        If DwmIsCompositionEnabled() Then
            With ListView1
                margins1 = New MARGINS()
                margins1.cxLeftWidth = .Location.X
                margins1.cxRightWidth = Me.Width - .Location.X - .Size.Width - _
                  15
                margins1.cyTopHeight = .Location.Y
                margins1.cyButtomheight = Me.Height - .Location.Y - _
                  .Size.Height - 35
 
                DwmExtendFrameIntoClientArea(Me.Handle, margins1)
            End With
        End If
    End Sub
 
    Protected Overloads Overrides Sub OnPaintBackground(ByVal e As _
      PaintEventArgs)
        MyBase.OnPaint(e)
        If DwmIsCompositionEnabled() Then
            e.Graphics.Clear(Color.Black)
 
            Dim clientArea As New Rectangle(margins1.cxLeftWidth, _
              margins1.cyTopHeight, Me.ClientRectangle.Width - _
              margins1.cxLeftWidth - margins1.cxRightWidth, _
              Me.ClientRectangle.Height - margins1.cyTopHeight - _
              margins1.cyButtomheight)
 
            Dim b As Brush = New SolidBrush(Me.BackColor)
            e.Graphics.FillRectangle(b, clientArea)
        End If
    End Sub
 
End Class