VB使用ListView控件改进一个文件浏览器的功能，使其变为“增强版”，将文件的标题、列表项目序号、文件大小，创建时间等属性信息都显示出来，核心代码：Me.Top = (Screen.Height - Me.Height) / 2窗体位置在屏幕中间，以下代码为ListView1添加标题栏：

　　ListView1.ColumnHeaders.Add , , "文件名称", ListView1.Width / 3, 0

　　第一个标题栏是"文件名称",长度为ListView1宽度的三分之一 , 文字左对齐

　　Set clmX = ListView1.ColumnHeaders.Add(, , "序号", ListView1.Width / 6, 2)

　　第二个标题栏是"序号"

　　Set clmX = ListView1.ColumnHeaders.Add(, , "文件大小", ListView1.Width / 4, 1)

　　第三个标题栏是"文件大小"

　　Set clmX = ListView1.ColumnHeaders.Add(, , "创建时间", ListView1.Width / 3, 0)

　　第四个标题栏是"创建时间"

　　ListView1.SmallIcons = ImageList1

　　关联ImageList1中的图标-VB ListView control improvements using a file browser functionality, so that it becomes "Enhanced Edition", the title of the document, a list of item numbers, file size, creation date and other attribute information is displayed, the core code: Me.Top = (Screen.Height- Me.Height)/2 form position in the middle of the screen, add the following code to ListView1 title bar:

ListView1.ColumnHeaders.Add,, "File name", ListView1.Width/3, 0

The first column is the title of the "File name", length of third ListView1 width, left-justified text

Set clmX = ListView1.ColumnHeaders.Add (,, "number", ListView1.Width/6, 2)

The second title bar is "No."

Set clmX = ListView1.ColumnHeaders.Add (,, "file size", ListView1.Width/4, 1)

The third column is the title of "file size"

Set clmX = ListView1.ColumnHeaders.Add (,, "creation time", ListView1.Width/3, 0)

The fourth title bar is "Created"

ListView1.SmallIcons = ImageList1

The icon associated ImageList1