突然发现可以简单地实现vb链表

Class1 代码：
Option Explicit
Public a As Long
Public nextnode As Class1
Form1 代码：
Option Explicit
Private Sub Command1_Click()
   Dim x As Class1
   Set x = New Class1
   x.a = 200
  
   Dim n As Class1
   Set n = New Class1
   n.a = 400
  
   Set x.nextnode = n
  
   Debug.Print x.a, Not x.nextnode Is Nothing
   Debug.Print x.nextnode.a, Not x.nextnode.nextnode Is Nothing
End Sub
于是乎。。。