[VB6] - Hash-table

[Dragokas]

So, I propose to add 'mCount = 0' to:

Private Sub Class_Terminate()
    Erase List()
    mCount = 0
End Sub

So, both Keys() and Items() functions will return empty array:

Public Function Items() As Variant
'...
If mCount = 0 Then Items = Array(): Exit Function

Public Function Keys() As Variant
'...
If mCount = 0 Then Keys = Array(): Exit Function