显示隐藏即可。

Select Case e.Path
    Case "test.htm",""
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1","增加客户")
            .AddInput("xm","姓名","text")
            .AddInput("nl","年龄","number")
            .AddSwitch("hy","会员",True).attribute="onchange=""if(this.checked){vip.parentNode.parentNode.style.display=\'block\'}else{vip.parentNode.parentNode.style.display=\'none\'};alert(this.checked)"""
            .AddSwitch("vip","VIP客户")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        e.WriteString(wb.Build) \'生成网页
End Select