参考到代码

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1","列表项目")
            .AddSelect("os","操作系统","test1|iOS|Windo都爱速度覅uasidasdiuf扩大偶isdiufaosdifasdifuws|Andriod|test2")
            \'.AddSelect("bw","浏览器","Chorme|[Edge]|Firefox|Internet Explorer")
        End With
        \'wb.InsertHTML("<Select class=\'weui_select\'><optgroup><option value=\'0\'>全部</option><option value=\'1\' title=\'\'>s\'d\'k\'fo\'a\'su\'di\'fo\'a\'su\'dfia\'usdo啊送到123 啊啥都发啊送抵付啊ask大家覅速度发ad\'ku\'fia\'s\'du\'f </option></optgroup></Select>")
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        Dim str As String = wb.build
        str = str.replace("<option>test1</option>", "<optgroup>").replace("<option>test2</option>", "</optgroup>")
        e.WriteString(str) \'生成网页
End Select