[Amin_Mansouri]

یه کم وقتمو نوشت گرفت

دیگه نوشتیم برات :



کدهای زیر رو اضافه کن

کد:

Private Sub lstFind_Click()
Dim Parvin As String
Parvin = lstFind.List(lstFind.ListIndex)
Dim txt() As String
Dim x As Long
txt = Split(Parvin, ",")
For x = 0 To UBound(txt)
Select Case x
Case "0"
Text4.Text = txt(x)
Case "1"
Text2.Text = txt(x)
Case "2"
Text3.Text = txt(x)
End Select
Next x
End Sub