اضافه کردن یک حرف به اخر سطرهای لیست باکس

[samiasoft]

سلام دوستان

من تعدادی اسم در داخل لیست باکس دارم
میخواستم به اخر هر اسم مثلا کاراکتر , را اضافه کنم
ممنون میشم منو راهنمایی کنید


http://samisoft.ir/1/images/kEcXf.gif

[سید حمید حق پرست]

سلام علیکم
یک نمونه :
Private Sub Command1_Click()
Dim A As Integer, B As String
For A = 0 To List1.ListCount - 1
List2.AddItem List1.List(A) & ","
Next
End Sub
موفق باشید.

یا علی (ع)