 False
Option Explicit

Private WithEvents m_frmSysTray As fSysTrayIconMenu
Attribute m_frmSysTray.VB_VarHelpID = -1

Private Sub SetIcon()
Dim lI As Long

   If Not m_frmSysTray Is Nothing Then
      Select Case True
      Case optIcon(0).Value
         m_frmSysTray.IconHandle = imgIcon(0).Picture.Handle
         lI = 0
      Case optIcon(1).Value
         m_frmSysTray.IconHandle = imgIcon(1).Picture.Handle
         lI = 1
      Case optIcon(2).Value
         m_frmSysTray.IconHandle = imgIcon(2).Picture.Ha