Private Sub Document_ContentControlOnEnter(ByVal ContentControl As ContentControl)
Dim lngIndex As Long

  Select Case ContentControl.Title
    Case "Demo"
      With ContentControl.DropdownListEntries
        For lngIndex = .Count To 2 Step -1
          .Item(lngIndex).Delete
        Next
        .Add "Apples", "Apples"
        .Add "Blueberries", "Blueberries"
        .Add "Cherries", "Cherries"
      End With
  End Select
End Sub