> > PROCEDURE combo1.Init > DIMENSION thisform.cmbchoices(3,2) > thisform.cmbchoices(1,1) = "Display for 2" > thisform.cmbchoices(1,2) = 2 > thisform.cmbchoices(2,1) = "Display for 1" > thisform.cmbchoices(2,2) = 1 > thisform.cmbchoices(3,1) = "Display for 3" > thisform.cmbchoices(3,2) = 3 this.boundTo = .t. this.value = 2 && defaults to 1st entry now.... > > > this.RowSourceType= 5 > this.RowSource="thisform.cmbchoices" > > RETURN DODEFAULT() > ENDPROC > < snip > >