Word Document Properties

Part II: Learning the Ropes 
12_046500 ch07.qxp 12/5/06 5:35 PM Page 170

---

property to determine which entries are highlighted. The 
Value
property is
always 
Null
(set to nothing) when you allow multiple selections.
Both of these controls require less code than the 
OptionButton
control to
perform approximately the same task. Listing 7-6 shows an example of both
the 
ComboBox
and the 
ListBox
in action. (You can find the source code for
this example on the Dummies.com site at 
http://www.dummies.com/go/
vbafd5e
.)
Listing 7-6
Working with List Boxes and Combo Boxes
Private Sub btnStatus_Click()
‘ Create an output string.
Dim Output As String
Output = “The selected color is: “ + _
comboColors.Value + vbCrLf + _
“The selected number is: “ +
listNumbers.Value
‘ Display the result.
MsgBox Output
End Sub
Private Sub UserForm_Initialize()
‘ Populate the ListBox control.
listNumbers.AddItem “One”
listNumbers.AddItem “Two”
listNumbers.AddItem “Three”
listNumbers.AddItem “Four”
listNumbers.AddItem “Five”
listNumbers.AddItem “Six”
‘ Select the default value.
listNumbers.Value = “One”
‘ Populate the ComboBox control.
comboColors.AddItem “Red”
comboColors.AddItem “Green”
comboColors.AddItem “Blue”
comboColors.AddItem “Yellow”
comboColors.AddItem “Orange”
comboColors.AddItem “Purple”
‘ Select the default value.
comboColors.Value = “Red”
End Sub
The code begins in the 
UserForm_Initialize
sub-procedure. You must
populate the two controls by using the 
AddItem
method. Setting the 
Value
property to one of the values that you provide selects that value in the list.
171