如何建立[圓角、邊框色彩漸層、邊框寬度自訂]表單

先讓大家看一下我要實現的表單效果：

該表單的背景色、圓角半徑(下面代碼中將圓角半徑等於邊框寬度，此為為般化處理，參考者可視具體需要而對代碼略作修改，使二者具有不同的值，以獲得不同的效果）由使用者根據需要改變。上、左邊框的色彩為白色(其實為DrawEdge過程中colTopLef決定，可設為其他值)到表單背景色的漸層，下、右邊框的色彩為RGB(132, 132, 132)(其實為DrawEdge過程中colBottomRight所決定，也可設為其他值)到表單背景色的漸層。
　

要實現該效果，你的表單（對任擁有hWnd屬性的對象，也一樣實用）應作如下設定：
1——BorderStyle=0,
2——ScaleMode=3 (所有GDI類API使用的長度單位都為Pixel，對應於該項的設定）。
3——AutoRedraw=True
主要使用了三個過程：
WindowShape ——'重塑表單輪廓，入口函數，調用後兩個函數
MakeRoundCorner——圓角
DrawEdge ——畫外框
以下代碼為要實現特效的表單中的代碼：
===============================================================
Private Sub Form_Load()
'調用入口函數實現效果
WindowShape hwnd, hdc, BackColor, ScaleWidth + 1, ScaleHeight + 1, 10
'將表單置頂，
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub
===============================================================
以下為具體實現代碼，可置於一個module中：
===============================================================
Option Explicit
Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long