Зависание при отладке по нажатии на обработчик сортировки

/// Сводка для Form1
value struct sp {
        String ^key;
        sp ^prev, ^next;
    };
    value struct List
    {
        sp ^top,^bottom, ^current;
    };
/// Требуется переменная конструктора.
        List L;
        void Init()
        {
            L.top = L.bottom = L.current = nullptr;
        }
        void Add (String ^inf)
        {
            sp ^work=gcnew sp;
            work->key = inf;
            work->next = nullptr;
            if (L.top)
            {
                work->prev=L.bottom;
                L.bottom->next = work;
                L.bottom = work;
            }
            else
            {
                work->prev=nullptr;
                L.top = L.bottom = work;
            }
        }
        void View()
        {
            if (L.top)
            {
                L.current = L.top;
                while (L.current)
                {
                    listBox1->Items->Add(L.current->key);
                    L.current = L.current->next;
                }
            }
            else
            {
                String ^s = "Empty";
                listBox1->Items->Add(s);
            }
        }
 
private: System::Void initToolStripMenuItem_Click(System::Object^  sender, System::EventArgs^  e) {
                 Init ();
             }
private: System::Void addToolStripMenuItem_Click(System::Object^  sender, System::EventArgs^  e) {
             String ^inf=Convert::ToString(textBox1->Text);
             Add(inf);
         }
private: System::Void viewToolStripMenuItem_Click(System::Object^  sender, System::EventArgs^  e) {
             View ();
         }
private: System::Void clearToolStripMenuItem_Click(System::Object^  sender, System::EventArgs^  e) {
             listBox1->Items->Clear();
         }
//Здесь код обработчика сортировки, именно по нажатии на него в отладке форма зависает и не реагирует
private: System::Void sortToolStripMenuItem_Click(System::Object^  sender, System::EventArgs^  e) {
             L.current=L.top;
             int fl;
             String ^s = L.current->key;
             String ^s1 = (L.current->next)->key;
             int n = s->Compare(s,s1);
             do
             {
                 fl=0;
                 while (L.current->next)
                     if (n>0)
                     {
                         String ^vs = (L.current->key)->Copy(L.current->key);
                         L.current->key=(L.current->next)->key->Copy((L.current->next)->key);
                         (L.current->next)->key=vs->Copy(vs);
                         fl=1;
                     }
             }while (fl==1);
             L.current=L.current->next;
         }