Visual Basic

Private Sub LoadNewPict()
   ' You should replace the bold image 
   ' in the sample below with an icon of your own choosing.
   PictureBox1.Image = Image.FromFile _
   (System.Environment.GetFolderPath _
   (System.Environment.SpecialFolder.Personal) _
   & "\Image.gif")
End Sub

 Private Sub btnArrange_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnArrange.Click
        '*************************************************
        'this sub will sort the players cards in increasing
        'order using a bubble sort

        Dim Last, i As Integer
        Dim temp As String
        Dim ExchangeMade As Boolean


        lblPlayer1.Text = ""
        lblPlayer2.Text = ""
        lblPlayer3.Text = ""
        lblPlayer4.Text = ""

        Last = ShuffleCards.cards2.Length - 1

        Do
            ExchangeMade = False

            For i = 0 To Last
                If ShuffleCards.cards2(i) > ShuffleCards.cards2(i + 1) Then

                   'exchange values
                    temp = ShuffleCards.cards2(i)
                    ShuffleCards.cards2(i) = ShuffleCards.cards2(i + 1) '*****THIS IS WHERE THE ERROR OCCURS******
                    ShuffleCards.cards2(i + 1) = temp
                    ExchangeMade = True

                End If
            Next i

            Last = Last - 1 'decrement length

        Loop Until (Not (ExchangeMade = True)) Or (Last = 0)

'DISPLAY SORTED DATA IN EACH LABEL

        For i = 0 To ShuffleCards.cards2.Length - 1

            lblPlayer1.Text += ShuffleCards.cards2(i)
            lblPlayer2.Text += ShuffleCards.cards2(i + 1)
            lblPlayer3.Text += ShuffleCards.cards2(i + 2)
            lblPlayer4.Text += ShuffleCards.cards2(i + 3)


        Next



    End Sub

Dim sr = New IO.StreamReader(foundFile) 'i open the text file
           Dim lines As Integer = 0
           Dim storage(499) As String

           While sr.Peek() <> -1 'I read each line
                   storage(lines) = sr.ReadLine 'i add this line to my array
                   lines += 1
                   If lines = 499 Then 'if my array is full i do a new trhead
                       ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf proceso))'proceso is my method
                       lineas = 0 'restarting counter...
                   End If

                   ThreadPool.GetAvailableThreads(a, b) 'i check how many threads ther are
                   While a = 0 'if there are the maximum posible trheads i do this while until one threa ends
                       ThreadPool.GetAvailableThreads(a, b)
                   End While
               End If