Hi
I use VB.net and add reference VISM.OCX in my project to fetch my data in global ^ztonMS it had 4000 record
code is
AxVisM1.MServer = "CN_IPTCP:" & TCLServer & ":" & Authen
AxVisM1.NameSpace = TCLNamespace
AxVisM1.P0 = ""
AxVisM1.P1 = ""
AxVisM1.P2 = ""
AxVisM1.P3 = ""
AxVisM1.P4 = ""
'AxVisM1.Execute("d RefRange^NHSNAV2")
While True
AxVisM1.Execute("set P0=$o(^ztonMS(""REF"",P0))")
AxVisM1.Execute("s P1=$g(^ztonMS(""REF"",P0))")
xP1 = AxVisM1.P0.ToString
If (AxVisM1.P0.




