module1.bas

Visual.Basic.NET实用编程百例-47.6M.zip

Attribute VB_Name = "Module1"
Public Declare Function CreatePolygonRgn _
Lib "gdi32" _
( _
    lpPoint As POINTAPI, ByVal nCount As Long, _
    ByVal nPolyFillMode As Long _
    ) As Long
Public Type POINTAPI
        x As Long
        y As Long
End Type
'------------------------------------------------
'以上为声明CreatePolygonRgn函数和它需要的POINTAPI类型

Public Declare Function SetWindowRgn _
Lib "user32" _
( _
    ByVal hWnd As Long, ByVal hRgn As Long, _
    ByVal bRedraw As Boolean _
    ) As Long
Public Const ALTERNATE = 1
'------------------------------------------
''以上为声明SetWindowRgn函数和它需要的常量