Перевод консольного приложения на Windows Form

Public Sub MergeSort(ByRef Arr() As Double, ByVal N As Long) 
    Dim C As Boolean 
    Dim I As Long 
    Dim I1 As Long 
    Dim I2 As Long 
    Dim N1 As Long 
    Dim N2 As Long 
    Dim J As Long 
    Dim K As Long 
    Dim Tmp As Double 
    Dim BArr() As Double 
    Dim MergeLen As Long 
 
    ReDim BArr(0# To N - 1#) 
    MergeLen = 1# 
    C = True 
    Do While MergeLen < N 
        If C Then 
            I = 0# 
            Do While I + MergeLen <= N 
                I1 = I + 1# 
                I2 = I + MergeLen + 1# 
                N1 = I + MergeLen 
                N2 = I + 2# * MergeLen 
                If N2 > N Then 
                    N2 = N 
                End If 
                Do While I1 <= N1 Or I2 <= N2 
                    If I1 > N1 Then 
                        Do While I2 <= N2 
                            I = I + 1# 
                            BArr(I - 1#) = Arr(I2 - 1#) 
                            I2 = I2 + 1# 
                        Loop 
                    Else 
                        If I2 > N2 Then 
                            Do While I1 <= N1 
                                I = I + 1# 
                                BArr(I - 1#) = Arr(I1 - 1#) 
                                I1 = I1 + 1# 
                            Loop 
                        Else 
                            If Arr(I1 - 1#) > Arr(I2 - 1#) Then 
                                I = I + 1# 
                                BArr(I - 1#) = Arr(I2 - 1#) 
                                I2 = I2 + 1# 
                            Else 
                                I = I + 1# 
                                BArr(I - 1#) = Arr(I1 - 1#) 
                                I1 = I1 + 1# 
                            End If 
                        End If 
                    End If 
                Loop 
            Loop 
            I = I + 1# 
            Do While I <= N 
                BArr(I - 1#) = Arr(I - 1#) 
                I = I + 1# 
            Loop 
        Else 
            I = 0# 
            Do While I + MergeLen <= N 
                I1 = I + 1# 
                I2 = I + MergeLen + 1# 
                N1 = I + MergeLen 
                N2 = I + 2# * MergeLen 
                If N2 > N Then 
                    N2 = N 
                End If 
                Do While I1 <= N1 Or I2 <= N2 
                    If I1 > N1 Then 
                        Do While I2 <= N2 
                            I = I + 1# 
                            Arr(I - 1#) = BArr(I2 - 1#) 
                            I2 = I2 + 1# 
                        Loop 
                    Else 
                        If I2 > N2 Then 
                            Do While I1 <= N1 
                                I = I + 1# 
                                Arr(I - 1#) = BArr(I1 - 1#) 
                                I1 = I1 + 1# 
                            Loop 
                        Else 
                            If BArr(I1 - 1#) > BArr(I2 - 1#) Then 
                                I = I + 1# 
                                Arr(I - 1#) = BArr(I2 - 1#) 
                                I2 = I2 + 1# 
                            Else 
                                I = I + 1# 
                                Arr(I - 1#) = BArr(I1 - 1#) 
                                I1 = I1 + 1# 
                            End If 
                        End If 
                    End If 
                Loop 
            Loop 
            I = I + 1# 
            Do While I <= N 
                Arr(I - 1#) = BArr(I - 1#) 
                I = I + 1# 
            Loop 
        End If 
        MergeLen = 2# * MergeLen 
        C = Not C 
    Loop 
    If Not C Then 
        I = 1# 
        Do 
            Arr(I - 1#) = BArr(I - 1#) 
            I = I + 1# 
        Loop Until Not I <= N 
    End If 
End Sub