e "vbAccelerator"
      'ShellEx "http://vbaccelerator.com/"
   Case "About"
      MsgBox "vbAccelerator IconMenu SysTray Demonstration", vbInformation
   Case "Bob"
      optIcon(0).Value = True
   Case "Beaver"
      optIcon(1).Value = True
   Case "Stimpy"
      optIcon(2).Value = True
   Case "close"
      Unload Me
   End Select
    
End Sub

Private Sub m_frmSysTray_SysTrayDoubleClick(ByVal eButton As
 MouseButtonConstants)
   Me.Show
   Me.ZOrder
End Sub

Private Sub m_frmSysTray_SysTrayMouseDown(ByV