ndle
         lI = 2
      End Select
      m_frmSysTray.Checked("Bob") = (lI = 0)
      m_frmSysTray.Checked("Beaver") = (lI = 1)
      m_frmSysTray.Checked("Stimpy") = (lI = 2)
   End If

End Sub

Private Sub chkSysTray_Click()
Dim lR As Long, lI As Long
   If (chkSysTray.Value = Checked) Then
      lI = ilsIcons16.ListImages.Count - 1
      Set m_frmSysTray = New fSysTrayIconMenu
      With m_frmSysTray
         .Initialise Me.hwnd
         .ImageList = ilsIcons16
         .AddMenuItem "&amp;Open SysTray