Neo4jclient -在VB.NET中有什么例子吗？

Imports Neo4jClient

Module Module1
    Sub Main()
        ' 创建一个新的Neo4j客户端实例
        Dim client As New GraphClient(New Uri("http://localhost:7474/db/data"))

        ' 连接到Neo4j数据库
        client.Connect()

        ' 创建一个新的节点
        Dim node As New Node()
        node.AddLabel("Person")
        node.Properties.Add("name", "John Doe")

        ' 将节点添加到数据库
        Dim createdNode = client.Create(node)

        ' 创建一个新的关系
        Dim relationship As New Relationship(createdNode.Reference, "FRIEND_OF", createdNode.Reference)

        ' 将关系添加到数据库
        Dim createdRelationship = client.CreateRelationship(relationship)

        ' 查询数据库中的节点和关系
        Dim query = client.Cypher.Match("(n:Person)-[r:FRIEND_OF]->(m:Person)").Return(Function(n, r, m) New With {n = n.As(Of Node)(), r = r.As(Of Relationship)(), m = m.As(Of Node)()})

        ' 执行查询并获取结果
        Dim result = query.Results

        ' 遍历结果并打印节点和关系的属性
        For Each row In result
            Console.WriteLine("Node: " & row.n.Properties("name"))
            Console.WriteLine("Relationship: " & row.r.Type)
            Console.WriteLine("Node: " & row.m.Properties("name"))
        Next

        ' 删除节点和关系
        client.Delete(createdNode.Reference)
        client.Delete(createdRelationship.Reference)

        ' 断开与Neo4j数据库的连接
        client.Dispose()

        Console.ReadLine()
    End Sub
End Module