Set .Font = Me.Font
      End With
   Else
      With cIM
         ' CLR_INVALID (=-1) = use default
         .MenuBackgroundColor = -1
         .ActiveMenuForeColor = -1
         .InActiveMenuForeColor = -1
         Set .Font = Nothing
      End With
   End If
End Sub

Private Sub chkEnable_Click()
   mnuEdit(2).Enabled = chkEnable.Value * -1
End Sub

Private Sub chkENewest_Click()
   mnuSub(5).Enabled = chkENewest.Value * -1
End Sub

Private Sub chkNewest_Click()
   mnuSub(5).Checked = (chkNewest.Value = 