Select Case e.Path
Case "test.htm"
Dim wb As New weui
Dim cp As String = "辽A12345"
With wb.AddPreview("","pv1","付款金额","¥2400")
.AddItem("车牌号:" & cp,"申请日期:" & Format(Date.Today,"yyyy-MM-dd"))
.AddItem("项目2","内容2")
.AddItem("项目3", "电动打蛋机")
.Addbutton("操作", "", 1, "")
End With
e.WriteString(wb.Build) \'生成网页
End Select