Visual Basic

Dim RGBArray(CInt((PicFile.Length - ft.Position) / 4 * 3) - 1) As Byte

For i = 0 To (RGBArray.Length - 1) Step 3
    ' change Endianness
    Dim buff As UInt32 = EndianConversion.SwapDWORD(brh.ReadUInt32)

    ' bit-shifting operation
    RGBArray(i) = (buff And &HFFC) >> 4           ' Blue
    RGBArray(i + 1) = (buff And &H3FFFFC) >> 14       ' Green
    RGBArray(i + 2) = (buff And &HFFFFFFFC) >> 24     ' Red

Next i

  Private Sub PopulateListView()
   'MakeThms is the name of the thread
    Try
      If MakeThms.IsAlive Then
        MakeThms.Abort() 'stop thread if another TreeNode is clicked while it's running
      End If
    Catch ex As Exception
     'prevent exception if MakeThms is nothing
    End Try

   'code to populate ListView via ExtractAssociatedIcon - omitted for brevity
   
   'then create the thread to make the scaled thumbnails
    Try
      MakeThms = New Thread(AddressOf BuildThumbnails)
      MakeThms.Start()
    Catch ex As Exception
      MsgBox(ex.ToString, MsgBoxStyle.Exclamation, title)
    End Try
  End Sub


'This is the code used by the background thread...
  Private Sub BuildThumbnails()
    For z As Integer = 0 To images.Count - 1 'images is a string collection of the image file names
      '
      '
      'code to create the scaled thumbnails (thm)
      '
      '
   
      'This is the ImageList used by the ListView (lvFiles)
      'Each image in the ImageList is changed as the new thumbnails are created
      imgList.Images(z) = thm
    Next z
    'redraw the ListView once the thumbnails are created
    lvFiles.Invalidate()
  End Sub