vb.net - 非クライアント領域のフォーム変更の問題

Question

このコードを使用して非クライアント領域を拡張することにした後、プロジェクトのフォームにいくつかの問題があるようです:

<Runtime.InteropServices.StructLayout(Runtime.InteropServices.LayoutKind.Sequential)> Public Structure Side
    Public Left As Integer
    Public Right As Integer
    Public Top As Integer
    Public Bottom As Integer

End Structure


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

End Function


Try
        Me.BackColor = Color.Black
        Dim Side As Side = New Side
        Side.Left = -1
        Side.Right = -1
        Side.Top = -1
        Side.Bottom = -1
        Dim result As Integer = dwmExtendFrameIntoClientArea(Me.Handle, Side)

    Catch ex As Exception

    End Try

コードは正確ではありませんが、私が達成しようとしたことをよりよく理解するのに役立つことを願っています. 私が今抱えている問題は、エアロの透明度として黒色が使用されていることです。テキストのハイライト色などの他の色の問題と同様に、例で見られるように、黒であるはずのテキストの色が現在の aero カラー テーマの色を反映するようになりました。

非クライアント領域を拡張することはプロジェクトの重要な部分であるため、そこから大きく逸脱することはできません。とにかく、このような他のものや、これを解決するための他の種類の解決策のために指定されたカラーセットを持つことができますか? 私は、エアロに関係するフォームに手を出すのが少し苦手です。ありがとう！