CLEAR DIMENSION gaMyListArray(10) FOR gnCount = 1 to 10 STORE REPLICATE(CHR(gnCount+64),6) TO gaMyListArray(gnCount) NEXT frmMyForm = CREATEOBJECT('Form') frmMyForm.AddObject('cmbCommand1','cmdMyCmdBtn') frmMyForm.AddObject('lstListBox1','lstMyListBox') frmMyForm.lstListBox1.RowSourceType = 5 frmMyForm.lstListBox1.RowSource = 'gaMyListArray' frmMyForm.cmbCommand1.Visible =.T. frmMyForm.lstListBox1.Visible =.T. frmMyForm.Show READ EVENTS DEFINE CLASS cmdMyCmdBtn AS CommandButton Caption = '\<Quit' Cancel = .T. Left = 125 Top = 210 Height = 25 PROCEDURE Click CLEAR EVENTS CLEAR ENDDEFINE DEFINE CLASS lstMyListBox AS ListBox Left = 10 Top = 30 AutoHideScrollBar = 2 && Change this to 1 and there is no difference!!!!! ENDDEFINE