注意到上面的Text1文字了吗?这种效果可不是我们想要的。怎么办呢?
　　上帝说:要有更好的办法
　　于是，就有了第二种实现方法。
　　其实这个问题的关键是画出透明的客户区，那么，别忘了，还有一个API可以做成此事，记得.NET里面那些控件和窗口有的有个TransparentKey属性么?没错了，就是用它—— SetLayeredWindowAttributes
　　SetLayeredWindowAttributes可以提供这样的一个功能:给一个窗口设定一个透明色，然后窗口显示的时候指定颜色的区域将变成透明。这样，只要我们给窗口指定一种没有用到的颜色(反正不是黑色就行，这里我用RGB(255,255,1))，就可以“画”出“透明”的区域了。
　　我们在使用之前要先对SetLayeredWindowAttributes做做手脚，将其声明为:
　　Public Declare Function SetLayeredWindowAttributesByColor Lib "user32" Alias "SetLayeredWindowAttributes" (ByVal hwnd As Long, ByVal crey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
　　为什么要这么干呢?留意函数第二个参数，本来有人将其声明为Byte类型(用于窗体半透明时没有问题)，但是这里要传一个RGB值，所以要改成Long
　　代码如下，相关的API和常量不再敷述，声明和值请读者自行补齐
　　Form_Load事件:(先声明m_transparencyKey全局变量，Long类型)
m_transparencyKey = RGB(255, 255, 1) ‘多少没所谓
SetWindowLong Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
SetLayeredWindowAttributesByColor Me.hwnd, m_transparencyKey, 0, LWA_COLORKEY
Dim mg As MARGINS, en As Long
mg.m_Left = -1
mg.m_Button = -1
mg.m_Right = -1
mg.m_Top = -1
MsgBox "1"
DwmIsCompositionEnabled en
If en Then
　DwmExtendFrameIntoClientArea Me.hwnd, mg
End If
　　再在Form_Paint事件中画图:
　　Form_Paint代码:
 
Dim hBrush As Long, m_Rect As RECT, hBrushOld As Long
hBrush = CreateSolidBrush(m_transparencyKey)
hBrushOld = SelectObject(Me.hdc, hBrush)
GetClientRect Me.hwnd, m_Rect
FillRect Me.hdc, m_Rect, hBrush
SelectObject Me.hdc, hBrushOld
DeleteObject hBrush
　　再按F5，效果嘛……