[VB_Coder]

السلام عليكم

كود :

Dim I As Integer

IF List1.ListCount > 0 Then

    Text1.Text = ""
    
    For I = 0 To List1.ListCount - 1

          IF Trim$(List1.List(I)) <> "" Then
              Text1.Text = Text1.Text & Trim$(List1.List(I)) & "*"
          End IF

     Next
  
     IF Trim$(Text1.Text) <> "" Then
         Text1.Text = Left$(Text1.Text,Len(Text1.Text) - 1)
     End IF

End IF

- تحياتي .