Initial data commit

Task/Apply-a-callback-to-an-array/Visual-Basic-.NET/apply-a-callback-to-an-array.vb

@@ -0,0 +1,25 @@
+Module Program
+    Function OneMoreThan(i As Integer) As Integer
+        Return i + 1
+    End Function
+
+    Sub Main()
+        Dim source As Integer() = {1, 2, 3}
+
+        ' Create a delegate from an existing method.
+        Dim resultEnumerable1 = source.Select(AddressOf OneMoreThan)
+
+        ' The above is just syntax sugar for this; extension methods can be called as if they were instance methods of the first parameter.
+        resultEnumerable1 = Enumerable.Select(source, AddressOf OneMoreThan)
+
+        ' Or use an anonymous delegate.
+        Dim resultEnumerable2 = source.Select(Function(i) i + 1)
+
+        ' The sequences are the same.
+        Console.WriteLine(Enumerable.SequenceEqual(resultEnumerable1, resultEnumerable2))
+
+        Dim resultArr As Integer() = resultEnumerable1.ToArray()
+
+        Array.ForEach(resultArr, AddressOf Console.WriteLine)
+    End Sub
+End Module