俺の求めるAero環境はまだ遠い

TweenをAeroに対応させようとして挫折。

Index: Tween.vb
===================================================================
--- Tween.vb	(リビジョン 349)
+++ Tween.vb	(作業コピー)
@@ -37,9 +37,22 @@
 Imports System.Diagnostics
 Imports Microsoft.Win32
 Imports System.Xml
+Imports System.Runtime.InteropServices
 
 Public Class TweenMain
+    <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
+
+
     '各種設定
     Private _mySize As Size             '画面サイズ
     Private _myLoc As Point             '画面位置
@@ -526,6 +539,14 @@
         Me.Visible = False
         SecurityManager = New InternetSecurityManager(PostBrowser)
 
+        Dim margins As MARGINS = New MARGINS
+        margins.cxLeftWidth = -1
+        margins.cxRightWidth = -1
+        margins.cyTopHeight = -1
+        margins.cyButtomheight = -1
+        Dim hwnd As IntPtr = Me.Handle
+        Dim result As Integer = DwmExtendFrameIntoClientArea(hwnd, margins)
+
         VerUpMenuItem.Image = shield.Icon
         If Not My.Application.CommandLineArgs.Count = 0 AndAlso My.Application.CommandLineArgs.Contains("/d") Then TraceFlag = True
 
@@ -953,6 +974,7 @@
         TimerRefreshIcon.Enabled = True
 
         '状態表示部の初期化（画面右下）
+        StatusLabel = New ToolStripLabelHistory
         StatusLabel.Text = ""
         StatusLabel.AutoToolTip = False
         StatusLabel.ToolTipText = ""

Formでは黒がガラス効果になるのは分かったんだけど、

• メニューバーやステータスバー、そのほか諸々のコントロールに対してはどうするの？
• 画面上で黒を使いたい場合はどうするの？
• 半透明効果から引き起こされる文字の難読性を解消するために縁取りをしないといけないけどどうするの？

などなど分からないことだらけ。