怎样在多选的ListView中屏蔽用CTRL，而只能使用Shift

Question

我在一个ListView中让他可以多选，可是不能用Ctrl只能用Shift来对连续的行多选，不知用什么来评比CTRL键

Answer 1

Private Sub ListView1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 17 Then ListView1.MultiSelect = False
End SubPrivate Sub ListView1_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = 17 Then ListView1.MultiSelect = True
End Sub