哪位好心人有空，帮我看看这段代码，哪出错了？！～先谢谢了～

哪位好心人有空，帮我看看这段代码，哪出错了？！～先谢谢了～

这是一个纸牌游戏，pokers类已经定义，有imge，color，number三个属性
每次运行到*号行时总报错：对象变量或with块变量未设置
哪位大哥大姐帮帮我呀～～mycards（i）从来没有被释放成nothing啊？！～
先谢谢了～！ 先谢谢了～！ 先谢谢了～！先谢谢了～！先谢谢了～！先谢谢了～！先谢谢了～！先谢谢了～！先谢谢了～！
代码：
Option Explicit
Dim OriginalPokers(1 To 54) As pokers
Dim WashedPokers(1 To 54) As pokers
Dim MyCards(1 To 20) As pokers
Dim C1Cards(1 To 20) As pokers
Dim C2Cards(1 To 20) As pokers
Dim picname As String
Dim i As Integer
Dim l As Integer
Dim m As Integer
Dim n As Integer
Sub Shuffle()
Randomize
Dim temp As pokers
Dim r As Integer
For i = 1 To 54
r = Int(Rnd * 54 + 1)
Set WashedPokers(i) = OriginalPokers(i)
Set temp = WashedPokers(i)
Set WashedPokers(i) = WashedPokers(r)
Set WashedPokers(r) = temp
Next
End Sub
Sub InitPokers()
For i = 1 To 54
Set OriginalPokers(i) = New pokers

OriginalPokers(i).Image = Trim(Str(i))

哪位好心人有空，帮我看看这段代码，哪出错了？！～先谢谢了～ 哪位好心人帮我看看 哪位好心人帮我看看梦幻ID？ 哪位好心人帮我看看我的主机配置？ 哪位好心人帮我看看我妈妈这是什么病? 求求哪位好心人帮我看看我的八字 哪位好心人进帮我看看关于高复。 哪位好心人帮我看看我们配不配 哪位好心人帮我看看这几张图片是啥图 哪位好心人帮我看看这电脑能卖多少钱