ايران ويج

سلام

من با این دستور

مقدار text1 رو می ریزم تو list1

و حالا می خوام لیست رو پاک کنم تمام لیست رو نمی گم

یه خط لیست رو میگم

مثلا می خوام

http://i31.tinypic.com/v9iyg.jpg

مثلا می خوام مقدار 8 رو که لیست وارد کردم رو پاک کنم

Sub RemovLst(Item As String)
Dim I As Integer
For I = 0 To List1.ListCount - 1
If List1.List(I) = Item Then
List1.RemoveItem I
Exit For
End If
Next
End Sub

Private Sub Command1_Click()
Call RemovLst(8)
End Sub