怎么样让窗口摆脱方形的样子

Question

下面是个EGG：
Option Explicit
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 SetWindowRgn Lib "user32" _
                                     (ByVal hwnd As Long, _
                                      ByVal hRgn As Long, _
                                      ByVal bRedraw As Boolean) As Long
Private Sub Form_Load()
    Dim lLeft As Long
    Dim lRight As Long
    Dim lTop As Long
    Dim lBottom As Long
    
    
    SetWindowRgn hwnd, CreateEllipticRgn(20, 20, 600, 350), True
    Screen.MousePointer = vbHourglass    lblVersion.Caption = "版本：" & App.Major & "." & App.Minor & "." & App.Revision
    'lblProductName.Caption = App.Comments
    
    
End Sub

Answer 1

控件 activeskin
可以替你的软件作“换肤手术”，可以更换软件的外观，形状、颜色以及看起来的感觉。让软件界面不一定是长方形的，也可以是圆形、椭圆形或者不规则形状。不只是主窗口画面可以做变化，连软件的其他设定画面、对话框等等也都可以依照你的意思来设计，半透明、阴影等效果都可以。你还可以把软件设计得像是MAC、UNIX等其他操作系统的软件的样子。设计步骤有四个：1.先用绘图软件画出一张图，并且储存成bmp格式。2.用文本编辑软件编辑一个Skin.xml文件。3.用Visual Basic设计一个对话框，并且把ActiveSkin Control放进去。你必须把SkinPath指定到放Skin文件的位置。4.编辑ActiveSkin Control的OnSkinNotify。这个地方~~
http://www.helpwork.net/ocx/html/user/ocxnevig.asp?BID=103&pageno=2

Answer 2

查一下API吧,有很多绘图的函数可以改变窗口形状的~

Answer 3

我不相用控件，主要是不想做出来的程序太大，还有啊，能不能教我Setwindowrgn这个API的用
法？？那些参数代表什么意思？？我要怎么样才能用？？为什么不能直接画椭圆而要用CreatEllipticRgn这个API？？谁知道，能教我吗？？？谢谢：）