ArrayList.BinarySearch Searches the entire sorted ArrayList for an element using the default comparer
Imports System Imports System.Collections Imports Microsoft.VisualBasic Public Class SamplesArrayList Public Shared Sub Main() Dim myAL As New ArrayList() Dim i As Integer For i = 0 To 4 myAL.Add(i * 2) Next i PrintValues(myAL) Dim myObjectOdd As Object = 3 FindMyObject(myAL, myObjectOdd) End Sub Public Shared Sub FindMyObject(myList As ArrayList, myObject As Object) Dim myIndex As Integer = myList.BinarySearch(myObject) Console.WriteLine(myIndex) End Sub Public Shared Sub PrintValues(myList As IEnumerable) Dim obj As [Object] For Each obj In myList Console.Write(" {0}", obj) Next obj Console.WriteLine() End Sub End Class