 bS
   mnuEdit(0).Enabled = bS
   cmdInvert.Enabled = bS
   mnuEdit(1).Enabled = bS
End Sub

Private Sub pShowOpenMRU()
Dim i As Long
Dim iC As Long
   If m_cZipMRU.Count &gt; 0 Then
      mnuFile(2).Visible = True
      iC = m_cZipMRU.Count
      If iC &gt; 4 Then iC = 4
      For i = 1 To iC
         mnuFile(i + 2).Visible = True
         mnuFile(i + 2).Caption = "&amp;" &amp; i &amp; ") " &amp; m_cZipMRU.Item(i)
         mnuFile(i + 2).Tag = m_cZipMRU.Item(i)
         If i = 1 Then
            mnuFile(i 