Select Case e.Path
    Case "test.htm",""
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
       
        With wb.AddInputGroup("form1","ipg1")
            \'.Attribute = "style=\'margin-top:5px\'"
            .AddInput("xm","户名","text")
            .AddInput("pw","密码","password")
        End With
       
       
       
        wb.InsertHTML("form1","<div id=\'div1\' style=\'overflow-y:auto;height:300px\'>")
        With wb.AddCheckGroup("","rdg12","浏览器")
            For i As Integer = 0 To 10
                .Add("bm1" & i, i)
            Next
        End With
        wb.InsertHTML("form1","</div>")
       
        e.WriteString(wb.Build) \'生成网页
End Select

这样不起作用,如果不放入 form1 中,就可以起作用