Trace &amp;History"
   mnuSub(7).Checked = True
      
End Sub
    
Private Sub chkBackground_Click()
   If (chkBackground.Value = Checked) Then
      Set cIM.BackgroundPicture = picBackground.Picture
   Else
      Set cIM.BackgroundPicture = Nothing
   End If
End Sub

Private Sub chkCustomColours_Click()
   If chkCustomColours.Value = Checked Then
      With cIM
         .MenuBackgroundColor = &amp;HCC9966
         .ActiveMenuForeColor = &amp;HFFFFFF
         .InActiveMenuForeColor = &amp;HFFFFCC
         