参考:http://blog.csdn.net/cheekis/article/details/41869953
例
Select Case e.Path
Case "test.htm"
Dim wb As New WeUI
With wb.AddListGroup("", "lsg1","简单列表")
.Add("ls1", "新浪主页")
.Add("ls2", "网易主页")
End With
With wb.AddListGroup("", "lsg3", "增加跳转的列表")
.Add("ls5","拨打电话", "10086", "tel:10086")
End With
e.WriteString(wb.Build) '生成网页
End Select