[anes]

السلام عليكم

اريد كود يقوم بحفظ ترتيب او اسم او رقم سطر الى التكست بوكس

مثال عندي بالبرنامج هته الروابط

كود :

AdfLinks(0) = "http://adf.ly/1moY4m"
       AdfLinks(1) = "http://adf.ly/1moY4m"
       AdfLinks(2) = "http://adf.ly/1moY4m"

مثلا لما اظغط على الرابط  رقم AdfLinks(0)

يحفظ في التكست بوكس الرقم  5289EAB6EC الموجود في SecCode(0)

كود :

SecCode(0) = "5289EAB6EC"
       SecCode(1) = "1289E25666"
       SecCode(2) = "2289EA6922"

ولما اظغط على الرابط المرقم ب (1)   يحفظ في التكست بوكس الرقم 1289E25666 الموجود في   SecCode(1)

الفكشن المراد العمل عليهل

كود :

 Private Function InitValues() As Object
        SecCode(0) = "5289EAB6EC"
        SecCode(1) = "1289EAB6EC"
        SecCode(2) = "2289EAB6EC"
        AdfLinks(0) = "http://adf.ly/1moY4m"
        AdfLinks(1) = "http://adf.ly/1moY4m"
        AdfLinks(2) = "http://adf.ly/1moY4m"
   
    End Function

اتمنى ان يكون سؤالي واضح اخوتي الكرام
تقبلو مني تحية رمضانية كريمة
وشكرا