Public Sub GlobalTagBrowse_UA(MyServer As String)
        'Dim server_properties As OPC_servers_data
        Dim easyDAClient = New EasyDAClient()
        Dim values() As UANodeDescriptor
        Dim i As Integer = 0
        Dim itmX As ListViewItem
        Dim itemF As ListViewItem
        Dim nodeId As String
        'Dim Index As Integer
        'Dim NamespaceIndex As Integer
        Dim L As String
 
 
        nodeId = ""
        If (MyServer.Length > 0) Then
            uaDataDialog1.EndpointDescriptor = MyServer
            uaDataDialog1.MultiSelect = True
            If uaDataDialog1.ShowDialog() = DialogResult.OK Then
                values = uaDataDialog1.NodeDescriptors  'NodeDescriptors
                For i = 0 To (values.Count - 1)
                    L = "s"
                    Select Case values(i).NodeId.NodeIdType.ToString
                        Case "String"
                            L = "s"
                        Case "Numeric"
                            L = "n"
                    End Select
                    nodeId = "ns=" + values(i).NodeId.NamespaceIndex.ToString + ";" + L + "=0:" + values(i).NodeId.Identifier.ToString
                    itemF = ListView2.FindItemWithText(nodeId) 'values(i).NodeId.ToString) ' 
                    If (itemF Is Nothing) Then
                        itmX = ListView2.Items.Add(nodeId, 0) ' values(i).NodeId.ToString
                        If values(i).BrowsePath.Length > 0 Then
                            itmX.SubItems.Add(values(i).BrowsePath.ToString)
                        Else
                            itmX.SubItems.Add("")
                        End If
                    End If
                Next i
            End If
        Else
            MsgBox("Enter the OPC-UA server endpoint first.", vbExclamation, "Info")
        End If
    End Sub