Codenstuff.com

Imports System.Runtime.InteropServices

Public Class Form1
    <Runtime.InteropServices.StructLayout(Runtime.InteropServices.LayoutKind.Sequential)> Public Structure MARGINS
  Public LeftWidth As Integer
  Public RightWidth As Integer
  Public TopHeight As Integer
  Public Buttomheight As Integer
    End Structure

    <Runtime.InteropServices.DllImport("dwmapi.dll")> Public Shared Function DwmExtendFrameIntoClientArea(ByVal hWnd As IntPtr, ByRef pMarinset As MARGINS) As Integer
    End Function

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  Try
    Me.BackColor = Color.Black
    Dim margins As MARGINS = New MARGINS
    margins.LeftWidth = -1
    margins.RightWidth = -1
    margins.TopHeight = -1
    margins.Buttomheight = -1
    Dim result As Integer = DwmExtendFrameIntoClientArea(Me.Handle, margins)
  Catch ex As Exception
    MsgBox("Uw besturingsysteem bevat niet de benodigde dll bestanden om het uitvoeren van deze applicatie te kunnen vooltooien.", vbCritical, "Fatale Fout")
    Application.Exit()
  End Try
    End Sub
End Class