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.