参考代码
Select Case e.Path
Case "test.htm", ""
Dim wb As New WeUI
With wb.AddListGroup("", "lsg3", "增加跳转的列表")
.Add("ls5","新浪主页", "sina.com", "http://www.sina.com.cn")
.Add("ls6","网易主页", "163.com", "http://www.163.com")
End With
With wb.AddListGroup("", "lsg4","增加图标的列表")
.Add("ls7","新浪主页", "sina.com", "http://www.sina.com.cn", "./images/001.jpg")
.Add("ls8","网易主页", "163.com", "http://www.163.com", "./images/163.png")
End With
Dim str As String = wb.Build
str = str.Replace("width:20px;", "width:100px;")
e.WriteString(str) '生成网页
End Select