WITH This .AddItem( 'Apples' ) .AddItem( 'Oranges' ) .AddItem( 'Pears' ) ENDWITH
Thisform.MyCombo.ListIndex = 2