VB中单向链表的问题。

先在Class模块中定义一个类，名称为myClass
Option ExplicitPublic linkdata As Integer
Public pnext As myClass1
Private Sub Class_Initialize()
    Set pnext = Nothing
End SubPrivate Sub Class_Terminate()
    Set pnext = Nothing
End Sub然后在窗体上加一个按钮
Private Sub Command1_Click()
Dim head As New myClass1
Dim i As Integer
head.linkdata = -1
Dim temp As myClass1
Set temp = head
For i = 0 To 10
   Dim p As new myClass1
   p.linkdata = i
   Set temp.pnext = p
   Set temp = p
NextSet temp = head
For i = 0 To 10
   Dim q As myClass1
   Debug.Print temp.linkdata
   Set q = temp
   Set temp = q.pnext
Next
End Sub这个链表有问题，我不知道错在哪，请高手指点下。