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问题是：当我用右键点Button控件时，也执行最小化或关闭操作了。
怎么解决 ？？？非常非常谢谢！！！

Answer 1

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        Debug.Print "left"
        ……你要做的事情
    ElseIf Button = 2 Then
        Debug.Print "right"
    End If
    
End Sub

Answer 2

jhone99 等的正解。就是对鼠标按键进行判断，作出不同响应。