VB怎么实现WINDOW XP窗体右上角的关闭和最小化功能？

Question

（我用的是Button控件模拟的）
下面是我的程序里面的一段代码
Private Sub Command3_Click() '最小化按纽
Call mcTray_MouseClick(vbLeftButton, True)
End Sub

Private Sub Command4_Click() ’关闭按纽
mcTray.DelTrayIcon '删除托盘图标
Set mcTray = Nothing
End
End Sub

问题是：当我点右键，也执行最小化或关闭操作了。
怎么解决 ？？？非常非常谢谢！！！

Answer 1

使用Command3_MouseUp事件 来取代你现在使用的 Command3_Click事件
前者可以判断点击时到底是按了哪个键 后者不行

Answer 2

Private Sub Command3_ClickPrivate Sub Command4_Click() ’关闭按纽
mcTray.DelTrayIcon
End Sub

Answer 3

关于这个建议你模仿一下VC++，VC++深入详解第八章

Answer 4

me.windowstate = 1 就是最小化窗体