发送窗体系统消息.bas

个人VB学习源码精选,自己学习时的一些编程小程序,希望对大家有帮助

Attribute VB_Name = "Module1"
Option Explicit

Public Const WM_SYSCOMMAND = &H112
Public Const SC_CLOSE = &HF060&
Public Const SC_MINIMIZE = &HF020&
Public Const SC_MAXIMIZE = &HF030&
Public Const SC_RESTORE = &HF120&

Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long