Designer.vb of RESX file does not update when adding resource via code - vb.net

Question

I am trying to add content to my resx files, via the AddResource(myval.Key, myval.Value) method. It works perfectly, but the only thing that bothers me is that stupid Designer file. Can I force it to update according to its resx file?
This is how I have added my strings to the resx file:
For Each entry In list
Dim resxList As List(Of KeyValuePair(Of String, String)) = New List(Of KeyValuePair(Of String, String))
Dim reader = New System.Resources.ResXResourceReader(entry.Key)
Dim node = reader.GetEnumerator()
While node.MoveNext()
resxList.Add(New KeyValuePair(Of String, String)(node.Key.ToString(), node.Value.ToString()))
End While
reader.Close()
Using fs As System.IO.FileStream = New System.IO.FileStream(entry.Key, System.IO.FileMode.Open)
Dim resx As System.Resources.ResXResourceWriter = New System.Resources.ResXResourceWriter(fs)
Using resx
If resxList.Count <> 0 Then
For Each r In resxList
resx.AddResource(r.Key, r.Value)
Next
End If
For Each myval In entry.Value
resx.AddResource(myval.Key, myval.Value)
Next
resx.Generate()
resx.Close()
End Using
fs.Close()
End Using
Next

Answer 1

I have found a solution on: https://github.com/thomaslevesque/AutoRunCustomTool
This is the code I extracted for my pruposes:
Private Function RunCustomToolSuccess(path As String) As Boolean
Dim targetItem As ProjectItem = _applicationObject.Solution.FindProjectItem(path)
If targetItem Is Nothing Then Return False
Dim targetCustomTool As String = CStr(GetPropertyValue(targetItem, "CustomTool"))
If String.IsNullOrEmpty(targetCustomTool) Then Return False
Dim vsTargetItem = targetItem.Object
vsTargetItem.RunCustomTool()
Return True
End Function
Private Shared Function GetPropertyValue(ByVal item As ProjectItem, ByVal index As Object) As Object
Try
Dim prop = item.Properties.Item(index)
If prop IsNot Nothing Then Return prop.Value
Catch __unusedArgumentException1__ As ArgumentException
End Try
Return Nothing
End Function