-"
         .AddMenuItem "&amp;Close", "close"
         .ToolTip = "SysTray Sample!"
      End With
      SetIcon
   Else
       Unload m_frmSysTray
       Set m_frmSysTray = Nothing
   End If
End Sub

Private Sub Form_Load()
   ilsIcons16.ListImages.Add , , imgIcon(0).Picture
   ilsIcons16.ListImages.Add , , imgIcon(1).Picture
   ilsIcons16.ListImages.Add , , imgIcon(2).Picture
   chkSysTray_Click
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
   If Not m_frmSysTray Is Noth