[ay.alhaj]

شكرا لكم على المساعدة 

تم حل المشكلة بفضل الله والحل كالتالي للفائدة 

اولا استغنيت عن حلقة loop واستخدمت الكود التالي بدل الكود السابق

كود :

       If My.Settings.App_language = "AR" Then
           CurrentThread.CurrentUICulture = New CultureInfo("AR")
       Else
           If My.Settings.App_language = "EN" Then
               CurrentThread.CurrentUICulture = New CultureInfo("EN")
           End If
       End If