VB窗体阴影！

实现带阴影的窗体,黑色的阴影!最好不要控件,

下面是我找到的代码
Private Const CS_DROPSHADOW = &H20000
Private Const GCL_STYLE = (-26)

Private Declare Function GetClassLong Lib "user32" Alias "GetClassLongA" ( _
ByVal hwnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" ( _
ByVal hwnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long

Private Sub Form_Load()
SetClassLong Me.hwnd, GCL_STYLE, GetClassLong(Me.hwnd, GCL_STYLE) Or CS_DROPSHADOW
End Sub
有个缺点就是,使用了以后,所有窗体就都有阴影了,我只想让这个窗体有,怎么改啊,或者你有更好的方法实现,谢谢!!
好像有使用GDI绘制的阴影区域的，不知道具体是怎么实现！

VB中拖动窗体 VB窗体小问题 VB窗体如何用？ vb窗体坐标 VB窗体特效 vb多窗体程序 VB MDI窗体问题! VB 窗体叠放顺序 如何VB窗体转换 VB窗体打开问题