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 EnddefineCetin