[الماجيك مسعد]

السلام عليكم

شكرا لكم يا شباب الحمدلله الطريقة الى صديقى بعتهالى نفعت وقامت بالمطلوب وزيادة

وهذا هو اخر تعديل للكود ليناسب استخدامى

الكود لربما يستفاد منه بعض الاخوة

كود :

Imports System.Text.RegularExpressions
Module Module1
Sub setlang()
Dim _lib_ = FileIO.FileSystem.ReadAllText(Application.StartupPath & "\lang\" & My.Settings.lang & ".ini")
frm_login.Label2.Text = getval(_lib_, "001")
frm_login.Label3.Text = getval(_lib_, "002")
frm_login.Button1.Text = getval(_lib_, "003")
frm_login.Button2.Text = getval(_lib_, "004")
frm_login.Button3.Text = getval(_lib_, "005")
MG_Control.Button21.Text = getval(_lib_, "006")
End Sub
Function getval(_lib_, _key_)
Return Regex.Matches(_lib_, String.Format("(?<=" & _key_ & "=\s*"").+?(?=""[\r\n]*)"), RegexOptions.IgnoreCase).Item(0).Value
End Function
End Module