module1.vb

来自「Visual.Basic.NET实用编程百例-47.6M.zip」· VB 代码 · 共 15 行

Module Module1
    Public Declare Function GetActiveWindow Lib "user32" () As Integer
    Public Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Integer, _
                                                 ByVal hRgn As Integer, _
                                                 ByVal bRedraw As Boolean) As Integer
    Public Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Integer, _
                                                    ByVal Y1 As Integer, _
                                                    ByVal X2 As Integer, _
                                                    ByVal Y2 As Integer) As Integer
    Public Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Integer, _
                                                ByVal Y1 As Integer, _
                                                ByVal X2 As Integer, _
                                                ByVal Y2 As Integer) As Integer
End Module