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