>oForm=Createobject('myForm') >oForm.Show >Read Events > >Define Class myForm As Form > Add Object myList As ListBox With Width = 400 > > Procedure myList.Init > With This > .ColumnCount=2 > .ColumnWidths='200,100' > For ix = 1 To 5 > If ix = 3 && Disable this one > .AddItem("\]"+"\\\\myserver"+Padl(ix,2,'0')+"\mypath\myfolder") > .Addlistitem('MyFileName',m.ix,2) > Else > .AddItem("\\\\myserver"+Padl(ix,2,'0')+"\mypath\myfolder") > .Addlistitem('MyFileName',m.ix,2) > Endif > Endfor > Endwith >Endproc > Procedure myList.DblClick > With This > Messagebox(.List(.ListIndex)) > Endwith >Endproc > > Procedure QueryUnload > Clear Events >Endproc >Enddefine >Cetin