很简单,GetSystemMenu的bRevert参数设为True
GetSystemMenu VB声明 
Declare Function GetSystemMenu Lib "user32" Alias "GetSystemMenu" (ByVal hwnd As Long, ByVal bRevert As Long) As Long 
说明 
取得指定窗口的系统菜单的句柄。在vb环境,“系统菜单”的正式名称为“控制菜单”,即单击窗口左上角的控制框时出现的菜单 
返回值 
Long,如执行成功,返回系统菜单的句柄;零意味着出错。如bRevert设为TRUE,也会返回零(简单的恢复原始的系统菜单) 
参数表 
参数 类型及说明 
hwnd Long,窗口的句柄 
bRevert Long,如设为TRUE,表示接收原始的系统菜单 
注解 
在vb里使用:系统菜单会向窗口发送一条WM_SYSCOMMAND消息,而不是WM_COMMAND消息