Depending on how many options you've got: how about a Spinner?
Dim Spinner1 As Spinner
For I = 1 to 25
Spinner1.SelectedIndex = 12 'default to middle
'or perhaps like I have in the TTS test program
'LanguageSpinner.AddAll(Array As String("en", "fr", "de", "it", "ru"))
I have some electronic-equipment lookalike knobs and gauges and spirit-level things that I keep meaning to convert to a library or custom views, but... is always left for tomorrow :-/