ing Then
      Unload m_frmSysTray
   End If
   Set m_frmSysTray = Nothing
End Sub

Private Sub Form_Resize()
   If (Me.WindowState = vbMinimized) Then
      Me.Visible = False
   End If
End Sub

Private Sub m_frmSysTray_MenuClick(ByVal lIndex As Long, ByVal sKey As String)
   If Me.Visible Then
      Me.ZOrder
   End If

   Select Case sKey
   Case "open"
      Me.Visible = True
      If (Me.WindowState = vbMinimized) Then
         Me.WindowState = vbNormal
      End If
      Me.Show
      Me.ZOrder
   Cas