Vb.net 使用VisM输出全局值列表或单个全局值

我通过添加对VisM.ocx的引用并将其作为activeX控件添加到工具箱中，将一个VisM控件添加到vb.net中

我在按钮中添加了以下代码：

Try
    'open the connection
        AxVisM1.Connect("CN_IPTCP:127.0.0.1[1972]")
    'set namespace to livedata (for formal namespaces, use the @ symbol)
        AxVisM1.NameSpace = "LIVEDATA"


    'do stuff.
    MsgBox("Cache is now active")

    'close the connection
    AxVisM1.DeleteConnection()

Catch ex As Exception
    'close the connection
    AxVisM1.DeleteConnection()

    MsgBox(ex.ToString)

End Try

从这里，我需要从名为

^BACKTR（“INDX”，“COMPANY”，“COMPANY”）的全局变量中输出变量

如何将此全局变量中的所有/部分变量输出到列表、数据表或单个变量中？我只需在VB.net中访问它，从那里我就可以为我的项目使用所述全局变量。即使输出是原始的（不是列或任何东西，例如：
^BACKTR（“INDX”，“COMPANY”，1635729792）=“
从它开始，我已经可以在我的应用程序中使用数据了
类似的东西，下面的代码从
^BACKTR（“数据”、“统计”）
读取数据并将其放入ListVew。它执行COS代码，以便使用
AxVisM1获取数据。执行
。查看函数，以及文档中关于P0和值的信息

        Dim cnt As Integer = 0
        ListView1.Items.Clear()
        ListView1.Columns.Clear()
        ListView1.Columns.Add("#")
        ListView1.Columns.Add("ID")
        For i = 1 To 25
            ListView1.Columns.Add("Prop" + i.ToString)
        Next

        AxVisM1.P0 = ""
        While True
            AxVisM1.Execute("set P0=$order(^BACKTR(""DATA"",""STATISTICS"",P0),1,VALUE)")
            If (AxVisM1.P0 = "") Then
                Exit While
            End If
            cnt = cnt + 1
            If (cnt > 100) Then
                Exit While
            End If

            Dim data() As String = Split(AxVisM1.VALUE, Chr(1).ToString)
            Dim line As ListViewItem = New ListViewItem(cnt)
            line.SubItems.Add(AxVisM1.P0.ToString)
            line.SubItems.AddRange(data)
            ListView1.Items.Add(line)

        End While

我要试试这个