ble.Enabled = False
   End If

   ' Make menu item visible:
   mnuFile(i).Visible = True
   If i = 5 Then
      cmdVisible_Click
   End If
   
End Sub

Private Sub Form_Load()
Dim l As Long
Dim lIndex As Long
Dim lC As Long

   Set cIM = New cIconMenu
   With cIM
      .Attach Me.hwnd
      .OfficeXpStyle = True
      
      .ImageList = ilsIcons

      .IconIndex(mnuFile(0).Caption) = ilsIcons.ItemIndex("OPEN") - 1
      .IconIndex(mnuFile(1).Caption) = ilsIcons.ItemIndex("SAVE") - 1
      .IconIndex(mnuFi