Private Sub ExtractEmbeddedResource(ByVal ResourceName As String, ByVal pathFileToSave As String)
        Try
            Dim myAssembly As System.Reflection.Assembly
            myAssembly = Me.GetType.Assembly

            Dim myManager As New System.Resources.ResourceManager("MyResource.resources", myAssembly)
            Dim resContent As Byte() = CType(myManager.GetObject(ResourceName), Byte())
            IO.File.WriteAllBytes(pathFileToSave, resContent)
        Catch ex As Exception
        End Try
    End Sub