تم الحل
Dim fullPath As String = IO.Path.GetFullPath(My.Resources.ResourceManager.BaseName)
fullPath = fullPath.Substring(0, fullPath.Length - 39) & "Resources\"
Dim fullPath As String = IO.Path.GetFullPath(My.Resources.ResourceManager.BaseName)
fullPath = fullPath.Substring(0, fullPath.Length - 39) & "Resources\"


