.NET (Core and Framework)

Private Function GetImage(position As Long, size As Integer) As Image
    Dim string1 As String
    Dim byteArray1 As Byte()
    Dim bitmap1 As Bitmap
    Dim stream1 As Stream = DirectCast(Nothing, Stream)
    Dim binaryReader1 As BinaryReader = DirectCast(Nothing, BinaryReader)
    Dim memoryStream1 As MemoryStream = DirectCast(Nothing, MemoryStream)
    Try
        string1 = String.Format("{0}gallery{1:D2}.enc", Session.RootPath, Me.index)
        stream1 = DirectCast(File.OpenRead(string1), Stream)
        binaryReader1 = New BinaryReader(stream1, Encoding.ASCII)
        Dim int64_1 As Long = binaryReader1.BaseStream.Seek(position, SeekOrigin.Begin)
        byteArray1 = binaryReader1.ReadBytes(size)
        Me.ColorBalance(byteArray1)
        memoryStream1 = New MemoryStream(byteArray1)
        Try
            bitmap1 = New Bitmap(DirectCast(memoryStream1, Stream))
        Catch
            bitmap1 = New Bitmap(64, 64)
        End Try
    Finally
        If memoryStream1 IsNot Nothing Then
            memoryStream1.Close()
            memoryStream1 = DirectCast(Nothing, MemoryStream)
        End If
        If binaryReader1 IsNot Nothing Then
            binaryReader1.Close()
            binaryReader1 = DirectCast(Nothing, BinaryReader)
        End If
        If stream1 IsNot Nothing Then
            stream1.Close()
            stream1 = DirectCast(Nothing, Stream)
        End If
    End Try
    Return bitmap1
End Function

Bob Beaubien wrote:

TextBox1.Text = Toolclick.ToString

Dim temp = ArrayB.Select(AddressOf Double.Parse) _
                 .Except(ArrayA.Select(AddressOf Double.Parse)) _
                 .ToArray()

Dim parsedToRemove As New Dictionary(Of Double, Double)
Dim noDuplicates As New List(Of Double)

For Each parsedA In Array.ConvertAll(ArrayA, AddressOf Double.Parse)
    If Not parsedToRemove.ContainsKey(parsedA) Then
        parsedToRemove.Add(parsedA, parsedA)
    End If
Next
For Each parsedB In Array.ConvertAll(ArrayB, AddressOf Double.Parse)
    If Not parsedToRemove.ContainsKey(parsedB) Then
        noDuplicates.Add(parsedB)
    End If
Next
'noDuplicates now has the values in B not in A