窗体非矩形的我会作！那控件可不可以做成非矩形的？我目前还未做出来！谁有办法解决！

Question

对不起,帮忙请关注我的这个问题:
  又关于如何制作另类窗体,或者说如何做类似于windows xp的窗体?
  地址是:http://www.csdn.net/expert/topic/338/338457.shtm万分感谢!!!

Answer 1

代码如下：
但报说在 Me.hWnd  未找到方法或数据成员！！
Private Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As LongPrivate Type POINTAPI
        x As Long
        y As Long
End Type
Private Const WINDING = 2
Dim xxx(12) As POINTAPIPrivate Sub UserControl_Initialize()
Dim yaobinA As Longxxx(0).x = 25
xxx(0).y = 30
xxx(1).x = 62
xxx(1).y = 35
xxx(2).x = 90
xxx(2).y = 40
xxx(3).x = 99
xxx(3).y = 83
xxx(4).x = 90
xxx(4).y = 122
xxx(5).x = 61
xxx(5).y = 130
xxx(6).x = 30
xxx(6).y = 129
xxx(7).x = 10
xxx(7).y = 112
xxx(8).x = 11
xxx(8).y = 95
xxx(9).x = 13
xxx(9).y = 66
xxx(10).x = 15
xxx(10).y = 47
xxx(11).x = 25
xxx(11).y = 28
yaobinA = CreatePolygonRgn(xxx(0), 12, WINDING)
Call SetWindowRgn(Me.hWnd, yaobinA, True)