设置网格列标题等的简单方法
给定一个网格控件，比如
GridView 或
ColumnView 或
TableView，有很多方法可以设置列标题。下面是我发现的既简单又最容易改变的方式，举个例子。。。
Private Sub LayoutMyGridView()
Dim headers As String[]=["Species","Name","Gender","Size"]
Dim idx As Integer
myGridView.Columns.Count=headers.Count
For idx = 0 to headers.Max
myGridView.Columns[idx].Title = headers[idx]
Next
End
只需在Form_Open（）中包含对LayoutMyGridView的调用。
因此，添加、删除或更改列标题所需做的只是对“headers”字符串数组进行编辑。
想要更多方式？
通过添加更多的本地数组（以及一些健全性检查），你可以以相同的方式设置网格的其他列属性！
Private Sub LayoutMyGridView()
Dim headers As String[]=["Species","Name","Gender","Size"]
Dim widths As Integer[]=[120,120,30,35]
Dim idx As Integer
If widths.Count<>headers.count then Error.Raise("Programmer cannot count!")
myGridView.Columns.Count = headers.Count
For idx = 0 to headers.Max
myGridView.Columns[idx].Title = headers[idx]
myGridView.Columns[idx].Width = widths[idx]
Next
End