自己指向自己的类

Public Data As String

Public NextNode As Node

Private Sub Command1_Click()

Dim a As Node, b As Node, c As Node

Set a = New Node

Set b = New Node

Set c = New Node

a.Data = “123”

b.Data = “456”

c.Data = “789”

Set a.NextNode = b

Set b.NextNode = c

Set c.NextNode = Nothing

Dim d As Node

Set d = a

MsgBox d.Data

Set d = a.NextNode

MsgBox d.Data

Set d = a.NextNode.NextNode

MsgBox d.Data

End Sub