ChoiceDialog.SetTitle "My Choice Single Dialog"
ChoiceDialog.ResetContent
ChoiceDialog.AddItem( "Snow White" )
ChoiceDialog.AddItem( "Vinyl Cafe" )
ChoiceDialog.AddItem( "Digital TV" )
ChoiceDialog.AddItem( "General Ham" )
nCount = ChoiceDialog.GetCount
ChoiceDialog.SetTextColor 1, 1, 1578900
ChoiceDialog.SetFont "Verdana", 14
ChoiceDialog.DualListBox = vbFalse
bResult = ChoiceDialog.DoModal()
If bResult then
‘ the user chose something
strSelection = ChoiceDialog.GetSelection
End if