Windows Aero Problem

See more:

VB

I have a problem using Windows Aero on a form in VB.NET.
If anything (text, pictures, controls) have black in them, then they appear invisible. Does anyone know how to solve the problem?

Code:

Imports System.Runtime.InteropServices

Public Class Form1

    '***********************************
    'Windows Aero Code
    <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
    End Try

End Sub

End Class

Thank-You!


--------------------------------

I know it turns everything black invisible, just wondering if anybody knows how to solve the problem.