普通的窗體都是方方的，使用API函數可以做出一些奇怪的形狀。比如，窗體是圓角矩形，在中間挖一個橢圓形的洞。
先要理解一個重要的概念：區域。區域是描述設備場景中某一塊的GDI對象，每個區域都有一個句柄。一個區域可以是矩形，也可以是復雜的多邊形，甚至是幾個區域組織在一起。窗體默認的區域就是我們看到的矩形，當然它並非一定要用這個默認的區域
現在開始，首先在窗體上做一個圓角矩形區域，這是窗體的大致輪廓。在圓角矩形裡再確定一個橢圓形的區域，然後把這兩個區域組織成一個區域，並設置窗體的區域為這個組織出來的區域。
CreateRoundRectRgn函數用於創建一個圓角矩形區域；CreateEllipticRgn用於創建一個橢圓區域；CombineRgn函數用於將兩個區域組合為一個新區域；SetWindowRgn函數允許您改變窗口的區域。使用其他的函數還可以做出其他更奇怪的窗體。
源代碼如下：
OptionExplicit
'API函數聲明
PrivateDeclareFunctionCreateRectRgnLib"gdi32"(ByValX1AsLong,ByValY1AsLong,ByValX2AsLong,ByValY2AsLong)AsLong
PrivateDeclareFunctionCreateRoundRectRgnLib"gdi32"(ByValX1AsLong,ByValY1AsLong,ByValX2AsLong,ByValY2AsLong,ByValX3AsLong,ByValY3AsLong)AsLong
PrivateDeclareFunctionCreateEllipticRgnLib"gdi32"(ByValX1AsLong,ByValY1AsLong,ByValX2AsLong,ByValY2AsLong)AsLong
PrivateDeclareFunctionCombineRgnLib"gdi32"(ByValhDestRgnAsLong,ByValhSrcRgn1AsLong,ByValhSrcRgn2AsLong,ByValnCombineModeAsLong)AsLong
PrivateDeclareFunctionSetWindowRgnLib"user32"(ByValhWndAsLong,ByValhRgnAsLong,ByValbRedrawAsBoolean)AsLong
PrivateDeclareFunctionDeleteObjectLib"gdi32"(ByValhObjectAsLong)AsLong
'常數聲明
PrivateConstRGN_DIFF=4
'目標區域被設置為兩個區域不相交的部分
'模塊級變量聲明
PrivateOutRgnAsLong
'外邊的圓角矩形區域
PrivateInRgnAsLong
'裡邊的橢圓區域
PrivateMyRgnAsLong
'圓角區域剪切掉橢圓區域後的區域，也是窗體最終的形狀
PrivateSubForm_Click()
IfOutRgn<>0AndInRgn<>0AndMyRgn<>0ThenExitSub
DimwAsLong,hAsLong
w=ScaleX(Form1.Width,vbTwips,vbPixels)
h=ScaleY(Form1.Height,vbTwips,vbPixels)
MyRgn=CreateRectRgn(0,0,0,0)
OutRgn=CreateRoundRectRgn(30,30,w-30,h-30,100,100)
InRgn=CreateEllipticRgn(100,100,w-100,h-100)
CallCombineRgn(MyRgn,OutRgn,InRgn,RGN_DIFF)
CallSetWindowRgn(Form1.hWnd,MyRgn,True)
Form1.BackColor=QBColor(4)
EndSub
PrivateSubForm_DblClick()
UnloadForm1
EndSub
PrivateSubForm_Load()
OutRgn=0
InRgn=0
MyRgn=0
Form1.Width=7800
Form1.Height=6000
EndSub
PrivateSubForm_Unload(CancelAsInteger)
IfMyRgn<>0ThenDeleteObjectMyRgn
IfOutRgn<>0ThenDeleteObjectOutRgn
IfInRgn<>0ThenDeleteObjectInRgn
EndSub
這個程序運行後，在窗體上單擊，窗體就會變形，雙擊窗體程序結束。要注意的是，在卸載窗體時，用DeleteObject函數刪除已定義的區域。->
