پاک کردن کلمات کوتاه یک لیست

[xrezax]

یک لیست دارم به این شکل

[ ] جای خالی یا همون space
1
f
f
gh
544
44
fg
uiu
fghfgh
fghfh
fhfghf
hf45

یم خوام وقتی روی یک دکمه کلیک کنم جاهای خالی + کلمات 1 حرفی و 2 حرفی و 3 حرفی از لیست پاک بشه.
ممنون میشم سورس بزارید

[_behnam_]

خوب با یه حلقه میتونید تک تک آیتم های لیست رو چک کنید اگه تعداد کاراکترهای آیتم از 4 کمتر بود حذف بشه

Dim Y As Integer
For Y = List1.ListCount - 1 To 0 Step -1
If Len(List1.List(Y)) < 4 Then List1.RemoveItem Y
Next