keypress misery

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

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:

Code:

---

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....