Public Function listFull() As Boolean Dim i As Long For i = 1 To FullSize If ProState(i) = False Then listFull = False Exit Function End If Next i listFull = True End Function Public Sub Add(ByVal Key As String, ByVal value As String) If listFull = True Then Resize End If CurrentIndex = GetLastIndex(Key) ProName(CurrentIndex) = Key ProValue(CurrentIndex) = value ProState(CurrentIndex) = True ProIndex(CurrentIndex) = CurrentIndex End Sub Public Sub RemoveByID(ByVal index As Long) ProState(index) = False ItemCount = ItemCount - 1 End Sub Public Sub RemoveByName(ByVal Key As String) Dim index As Long index = ItemID(Key) If index = -1 Then Exit Sub Else RemoveByID (index) End If End Sub Public Function Item(ByVal index As Long) As String If index > 0 And index <= FullSize Then If ProState(index) = True Then Item = ProValue(index) Exit Function End If End If Item = "" End Function Public Function ItemByName(ByVal ItemName As String) As String Dim i As Long i = ItemID(ItemName) If i = -1 Then ItemByName = "" Else ItemByName = ProValue(i) End If End Function Private Function ItemID(ByVal ItemName As String) As Long Dim i As Long For i = 1 To FullSize If ProName(i) = ItemName Then ItemID = i Exit Function End If Next i ItemID = -1 End Function Public Function GetLastIndex(ByVal Key As String) As Long Dim index As Long index = ItemID(Key) If index <= 0 Then GetLastIndex = 0 Exit Function End If If ProState(index) = False Then ItemCount = ItemCount + 1 End If GetLastIndex = index End Function