编辑一个form1
在form1编辑一个m_leave菜单
点击m_leave时发送一个消息Private Const WM_SYSCOMMAND = &H112
Private Const SC_MAXIMIZE = &HF030&
Private Sub m_leave_Click()
    SendMessage(form1.hwnd, WM_SYSCOMMAND, SC_MINIMIZE, 0&)
End Sub结果在发送消息时产生实时错误6,溢出。本人系统xp+vb6。在线等给分