问一个VB窗体的问题

在VB集成开发环境（IDE）中，设计程序时所新建、添加的窗体都是矩形的。
如果出于某种需要，想让窗体在运行时呈现出特殊的形状，就必须借助API函数编写相应的代码。
[方法一]使用区域创建函数
常用的区域创建函数有：
CreateEllipticRgn
'创建一个椭圆或圆形区域
CreateRoundRectRgn
'创建一个圆角矩形区域
CreatePolygonRgn
'创建一个由一系列点围成的区域
CombineRgn
'将两个区域组合为一个新区域
SetWindowRgn
'设置新的窗口区域。
通过CombineRgn可以取两个区域的并集、交集等组合，从而创建出复杂形状的窗体。例如，以下程序得到的窗体形状为两个相连的月牙形：
'例程1
Option Explicit
'API声明
Private Declare Function CreateEllipticRgn Lib“gdi32" _
ByVal x1 As Long, ByVal Y1 As Long, _
ByVal x2 As Long, ByVal Y2 As Long) 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
Private Declare Function SetWindowRgn Lib “user32" _
（ByVal hWnd As Long, ByVal hRgn As Long, _
ByVal bRedraw As Boolean) As Lo