拼SQL语句 把一二级显示的内容放到一个dataset里面
然后用listview treeview gridview都可以显示

简单的说 就是把你想显示的数据放在一个data table中 绑定到控件上去

如果数据在数据库中 就用select name = case when level = 1 then '*'+ 排行榜 else 排行榜 end
from table1 ---(如果是一级条目前面加个*显示)
unoin all select name = ' ', level = ' ' ----(2个一级条目间加一个空行)
union all select name = case when level = 1 then '*'+ 概况 else 概况 end
from table2
unoin all select name = ' ', level = ' '
union all select name=case when level = 1 then '*'+ 友情链接 else 友情链接 end from table3
unoin all select name = ' ', level = ' '
....
这样的方式返回一个数据表, 然后绑定到控件的datasource

如果不用数据库 直接在代码端hard code 那就自己定义一个data table,定义一个字符类型的字段,
然后定义一个datarow,给它赋值 再add到table中 直到你枚举完所有要显示的内容

Dim tbl As New DataTable
Dim dr As DataRow, dc As DataColumn
dc = New DataColumn("Name")
dc.DataType = System.Type.GetType("System.string")
tbl.Columns.Add(dc)
dr = tbl.NewRow
dr("name") = "* 本社图片排行榜"
tbl.Rows.Add(dr)
....
一行行加吧...这个办法很笨的 最后binding到控件