Ciao.
Adattando il codice che hai postato viene fuori questo:
Private Sub AddFileToResource(ByVal pathFile As String)
'===================================
' Code to Create a Resource.
Dim objData As Byte() = Nothing
Dim strString As String
Dim rsw As Resources.ResourceWriter
' estraggo il contenuto del file in un array di Byte
objData = IO.File.ReadAllBytes(pathFile)
strString = IO.Path.GetFileNameWithoutExtension(pathFile)
'Creates a resource writer instance to write to MyResource.resources.
rsw = New Resources.ResourceWriter("MyResource.resources")
'Adds the image to the resource.
' "MyImage" is the name that the Image is identified as in the resource.
rsw.AddResource(strString, objData)
rsw.Close()
MessageBox.Show("Resource Is Created.....")
'===================================
End Sub
ciao ciao
Cristian Barca