在项目中添加新项---类（CTypes.vb）
代码如下
Namespace API
    Public Class CTypes
        Implements IStore
        Dim TypeList As SortedList
        Dim TypeListCSharp As SortedList
        Sub New()
            TypeList = New SortedList()
            TypeListCSharp = New SortedList()
        End Sub
        Sub Add(ByVal Key As String, ByVal Data As String, Optional ByVal bCSharp As Boolean = False) Implements IStore.Add
            If Not bCSharp Then
                If Not TypeList.ContainsKey(Key) Then
                    TypeList.Add(Key, Data)
                End If
            Else
                If Not TypeListCSharp.ContainsKey(Key) Then
                    TypeListCSharp.Add(Key, Data)
                End If
            End If
        End Sub

        Overloads Function GetData(ByVal Key As String) As String Implements IStore.GetData
            If TypeList.ContainsKey(Key) Then
                Return CType(TypeList.Item(Key), String)
            Else
                Return Nothing
            End If
        End Function
        Overloads Function GetData(ByVal index As Integer) As String Implements IStore.GetData
            If index < TypeList.Count Then
                Return CType(TypeList.GetByIndex(index), String)
            Else
                Return Nothing
            End If
        End Function
        ReadOnly Property Count() As Integer Implements IStore.Count
            Get
                Return TypeList.Count()
          &nb