Private Sub Class_Initialize()
Set NextObj = Nothing
End Sub
使用示例如下:
Public Sub Main()
Dim Head As CNode, p As CNode, i As Integer
Set Head = New CNode
Set p = Head
For i = 1 To 10
Set p.NextObj = New CNode
Set p = p.NextObj
p.Value = i
Next i
Set p = Head.NextObj
While Not p Is Nothing
Debug.Print p.Value
Set p = p.NextObj
Wend
End Sub