只添加了CommonDialog1和filelistbox两个控件，需要将CommonDialog1选中的几个文件的文件名在filelistbox中显示，不是显示整个文件夹，不用listbox这个我能搞定

     File1.FileName = "*.VB"
     File1.Refresh
       Dim a() As String
       Dim i As Integer
        a = Split(CommonDialog1.FileName, Chr(0))
         For i = 1 To UBound(a)
          File1.List = a(0) & a(i)   '《《《=======关键在这里怎么写？ File1.List 这个不能用，选择单个文件我用的是File1.Pattern = CommonDialog1.FileTitle
         Next i
咋整的？现在在学习各个控件的使用！所以好多的不熟悉，只能自己一个个自己摸索！自学的

明白了，谢谢！