Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ShiftTest = Shift And 7
Select Case ShiftTest
    Case 1
      Print "you pressed the SHIFT key"
    Case 2
      Print "you pressed the CTRL key"
    Case 3
      Print "you pressed both SHIFT and CTRL ."
    Case 4

ShiftTest = Shift And 7 什么意思啊
      Print "you pressed the ALT key"
      End Select
End Sub

不是啊  是我省略了啊 一直到Case7啊

谢谢啊 虽然只能模糊了解  应该不是与的意思