Сортировка массива методом Хоара в Visual Basic и вывод в PictureBox - VB

Формулировка задачи:

Привет всем помогите плиз. Имеется часть программы по сортировки массива. Нужно что бы при нажатии на command button отсортированный массив выводился в Picture Box Помогите, если не сложно

                    Листинг программы
                
 
                        
                          
                    
Dim N As Integer, X(50)
Private Sub Command1_Click()
Picture1.Cls
N = 0
Open "c:\A.txt" For Input As #1
While Not EOF(1)
N = N + 1
Input #1, X(N)
Picture1.Print X(N)
Wend
Close #1
End Sub
 
Function quickSortR(X, N)
i = 0: j = N
p = X(N \ 2)
Do
While X(i) < p: i = i + 1: Wend
While X(j) > p: j = j - 1: Wend
If i <= j Then temp = X(i): X(i) = X(j): X(j) = temp: i = i + 1: j = j - 1
Loop While i <= j
End Function

Решение задачи: «Сортировка массива методом Хоара в Visual Basic и вывод в PictureBox»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub QuickSort(ByVal L As Long, ByVal U As Long)
Dim I As Long, J As Long
I = L: J = U: X = A((L + U) \ 2)
Do
  While A(I) < X: I = I + 1: Wend: While X < A(J): J = J - 1: Wend 'по возрастанию
'  While A(I) > X: I = I + 1: Wend: While X > A(J): J = J - 1: Wend 'по убыванию
  If I <= J Then
    Y = A(I): A(I) = A(J): A(J) = Y:    I = I + 1: J = J - 1
  End If
Loop Until I > J
If L < J Then QuickSort L, J
If I < U Then QuickSort I, U
End Sub