For t = 1 To Len(Text1.Text)
k = Mid(Text1.Text, 1, 1)
Text1.Text = Replace(Text1.Text, k, “”)
If InStr(1, kelime, k) = 0 Then
kelime = kelime & k
End If
Next t
Text1.Text = kelime
For i = 0 To List1.Items.Count – 1
List1.SelectedIndex = i
top_Renamed = 0
For j = 1 To Len(kelime)
sec = Mid(kelime, j, 1)
bul = InStr(1, List1.Text, sec)
If bul > 0 Then
secili = List1.Text
For s = 1 To Len(kelime)
sec1 = Mid(kelime, s, 1)
secili = Replace(secili, sec1, “”)
Next s
If Len(secili) = 0 Then
top_Renamed = top_Renamed + 1
End If
End If
Next j
listkelime = List1.Text
For t = 1 To Len(List1.Text)
k = Mid(List1.Text, t, 1)
listkelime = Replace(listkelime, k, “”)
If InStr(1, listkelime1, k) = 0 Then
listkelime1 = listkelime1 & k
End If
Next t
If top_Renamed = Len(listkelime1) Then
List2.Items.Add(List1.Text)
End If
listkelime1 = Nothing
Next i
****************************************

Program text deki harflerden oluşan list1 item lerini list 2ye aktarıyor. list1de 65000 civarında kelime barındırdığı için bu işlem çok uzun ve çok zahmetli oluyor anladığım kadarı ile stringbuilder kullanarak bu performans düşüklüğünü gidereblirim şöyle bir ip ucu daha var ki list2 ye eklenecek kelimelerin max uzunluğu 8 karaketr.
sizden istirhamım benim string builder kullanarak yapmaya çalışıpda başarılı olamadığum kod bloğunu string builder kullnılmış halini örneklemeniz, şimdiden teşekkürler