Private Sub Command1_Click()If File1.List(File1.ListIndex) <> "" ThenList1.AddItem File1.List(File1.ListIndex)End IfEnd Sub
