[VB_Coder]

السلام عليكم

- كود أخي أبو رائد صحيح ، ولكن يبدو أنه نسي ال Caption لليبل ، هذا كوده بعد إضافة المفقود :

كود :

Dim uuA() As String
uuA = Split(Label3(Index + p).Caption, "://")
Msgbox uuA(1)

- تحياتي .