自定义 控件 怎么像LISTVIEW 设置Key "ByVal Key As String"

'自定义类型声明
Private Type HeaderInfo
sText As String
iWidth As Long
SmallIcon As Object
BigIcon As Object
End Type

Private Type ListInfo
sText As String
SubItem() As String
SubItemCnt As Long
SubSmallIcon() As Object
SubBigIcon() As Object
SmallIcon As Object
BigIcon As Object
End Type

'增加列表项
Public Sub AddListItem(ByVal Key As String, ByVal sText As String, Optional SmallIcon As Object, Optional BigIcon As Object)
ReDim Preserve m_LI(m_LCnt)
m_LI(m_LCnt).sText = sText
Set m_LI(m_LCnt).SmallIcon = SmallIcon
Set m_LI(m_LCnt).BigIcon = BigIcon
m_LCnt = m_LCnt + 1
tmrInit.Enabled = False
tmrInit.Enabled = True
End Sub

[解决办法]
进来者得分