主题：苹果手机AddSelect显示问题

参考到代码

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