Module Module1 > > public oParametersDataDictionaryField As New Collection() > > Sub Main() > > ParameterAddDataDictionaryField("One", 5) > ParameterAddDataDictionaryField("Two", "Hello") > ParameterAddDataDictionaryField("Alpha", DateTime.Now) > ParameterAddDataDictionaryField("Zebra", "Hello") > > Dim result = oParametersDataDictionaryField.OfType(Of Object())().OrderByDescending(Function(x) x(0)) > End Sub > > Private Function ParameterAddDataDictionaryField(tcField As String, toValue As Object) As Boolean > oParametersDataDictionaryField.Add(New Object(4) {tcField, toValue, "", "", 0}) > Return True > End Function >End ModuleI really do not know how you can achieve that line to be understood by the designer. Here is what I have:
Public oDirectory As Collection = New CollectionAnd, then, in my client class:
Dim result = loFTP.oDirectory.OfType(Of Object())().OrderByDescending(Function(x) x(0))And the designer says: