Select Case e.Path
Case "test.htm"
Dim wb As New WeUI
wb.AppendHTML("<style>.weui_grid:before {border-bottom: none;border-right: none;}</style>",True)
wb.AddPageTitle("","pageheader","WeUI","微信网页设计样式库")
With wb.AddGrid("","g1")
.Add("c1","Button", "./images/button.png").Attribute = ""
.Add("c2","Cell", "./images/cell.png", "http://www.foxtable.com")
End With
e.WriteString(wb.Build)
End Select