Sub Form_Paint ()

  If goSimpleDisplay = False Then 'do only if display is fancy
      If gvItemDetailType = 1 Then
          procMakeNumbersVisible
          procRefreshBook  'bevelling only of procMakeBookVisible
          If picBookOpen.Visible = True Then procRefreshOpenBook
      End If

      If gvItemDetailType = 2 Then
          procMakeNumbersVisible
          'bevelling only of procMakeBookVisible
          'and procMakeNoteVisible:
          procRefreshNote
      End If

      If gvItemDetailType = 3 Then
          procMakeNumbersVisible
          'bevelling only of procMakeMeetingVisible:
          procRefreshMeeting
         If picSession.Visible = True Then procRefreshSession
      End If

      If gvItemDetailType = 4 Then
          procMakeNumbersVisible
          'bevelling only of procMakeRememberVisible:
          procRefreshRemember
          If picIdea.Visible = True Then procRefreshIdea
      End If

  End If

End Sub
