keypress misery

[Inhumanoid]

I don't really have a problem but something strange happens when I execute this code:

If ssMainPanel(1).Visible Then
If (Shift And vbAltMask) > 0 Then
If KeyCode = 187 Then
expand_all
ElseIf KeyCode = 189 Then
collapse_all
End If
End If
End If


If I press ALT+key the code gets triggered twice...
It works fine when I do it like this:


If (Shift And vbAltMask) > 0 And KeyCode = 187 And ssMainPanel(1).Visible Then expand_all
If (Shift And vbAltMask) > 0 And KeyCode = 189 And ssMainPanel(1).Visible Then collapse_all


Any ideas....