zu langsamer Code

[Stefan Mettenbrink <S dot Metti at gmx dot de>]

Ich benutze bei mir folgenden Code:

         for i=0 to ListBox1.ListCount-1
           if ListBox1.Selected(i)=true then
             
EditField2.Text=EditField2.Text+trim(ListBox1.Cell(i,SpalteINr))+","
           end
         next
                 
Bei knapp 200 Lstboxzeilen dauert das so lange, dass man schon vermutet, 
das Programm hängt. (G4/733 OS X 10.4, RB5.5)
Nun habe ich zusätzlich eine Progressbar eingefügt:

         ProgressBar1.Value=0
         ProgressBar1.Maximum=ListBox1.ListCount-1
         ProgressBar1.Visible=true
         for i=0 to ListBox1.ListCount-1
           ProgressBar1.Value=i
           ProgressBar1.Refresh
           
           if ListBox1.Selected(i)=true then
             
EditField2.Text=EditField2.Text+trim(ListBox1.Cell(i,SpalteINr))+","
           end
         next
       
Dabei viel mir auf, das bei etwa knapp der Hälfte die Geschwindigkeit 
deutlich zurückging.
Was kann ich ändern um diese simple Sache zu beschleunigen?

MfG, Metti.