Case "text","image","voice","video","shortvideo"
                    \'如果要保存收到的消息,请参考上一节在此处编写代码.
                    \'下面是被动回复图文消息的代码:
                    Dim so As New Foxtable.XObject()
                    Dim ja As New JArray
                    so("ToUserName") = xo("FromUserName")
                    so("FromUserName") = xo("ToUserName")
                    so("CreateTime") = (Date.Now - st).TotalSeconds()
                    so("MsgType") = "news"
                    so("ArticleCount") = 1 \'图文数量
                    For cnt As Integer = 1 To 1 \'可以回最多8条图文,这里只回1条
                       Dim ao As New JObject
                        ao("Title") = "特朗普提名保守派大法官" \'图文标题
                        ao("Description") = "特朗普在白宫提名尼尔·戈萨奇为美国最高法院大法官" \'图文简介
                        ao("PicUrl") = "https://ss1.baidu.com/6ONXsjip0QIZ8tyhnq/it/u=1632653074,1222564348&fm=80&w=179&h=119&img.JPEG" \'图片
                        ao("Url") = "http://news.ifeng.com/a/20170201/50640529_0.shtml" \'单击阅读原文后跳转的连接
                        ja.Add(ao)
                    Next
                    so("Articles") = New JObject()
                    so("Articles")("item") = ja
                    e.WriteString(so.ToXML)
            End Select

请问怎样修改成回复8条图文？