参考代码

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