我做了类似的，但是没有移到对应控件显示对应提示，需要怎么写呢？
Dim properties As new zopsdk.ZopProperties("a27daa5603d342bd8021c90a8c497d7f","dc3f587db1e1")
Dim client As new zopsdk.ZopClient(properties)
Dim request As new zopsdk.ZopRequest()
request.url = "http://japi.zto.cn/traceInterfaceNewTraces"
request.addParam("company_id", "a27daa5603d342bd8021c90a8c497d7f")
request.addParam("msg_type", "NEW_TRACES")
request.addParam("data", "[""75122432667316""]") '查询两个单号
Dim str = client.execute(request)
Dim jo As JObject = JObject.Parse(str)
Dim gd As Integer=0
Dim bl As Integer=0
For Each o As object In jo("data")(0)("traces")
Dim lbl1 As WinForm.Label
lbl1 = e.Form.CreateControl("Label", ControlTypeEnum.Label)
lbl1.Text =o("scanDate").Tostring
lbl1.Left = 0
lbl1.Top = gd+30
lbl1.AutoSize=True
e.Form.AddControl(lbl1)
Dim lbl As WinForm.Label
lbl = e.Form.CreateControl("lable1", ControlTypeEnum.Label)
lbl.Text = o("desc").tostring
lbl.Left = 200
lbl.Top = gd+30
lbl.AutoSize=True
'移动到该控件需要显示对应信息（o("scanSitePhone").Tostring）
Next
加好友 
发短信
Post By：2018/12/30 15:31:00 [只看该作者]
此主题相关图片如下：tim截图20181231003010.jpg