module1.vb

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

Module Module1
    Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Integer, ByVal bRevert As Integer) As Integer
    Public Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Integer) As Integer
    Public Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Integer) As Integer
    Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer
    Public Const MF_BYPOSITION As Integer = &H400
    Public Const MF_REMOVE As Integer = &H1000
    Public Const SC_CLOSE As Short = &HF060S
    Public Const SC_MAXIMIZE As Short = &HF030S
    Public Const SC_MINIMIZE As Short = &HF020S
End Module