Ottiene la versione del FILE dell'assembly

        Shared Function GetFileVersion() As String

            Dim res As String = ""

            'Dim asm As Reflection.Assembly = Reflection.Assembly.GetExecutingAssembly()
            Dim asm As Reflection.Assembly = Reflection.Assembly.GetCallingAssembly

            Dim fvi As FileVersionInfo = FileVersionInfo.GetVersionInfo(asm.Location)

            res = fvi.FileVersion

            fvi = Nothing
            asm = Nothing

            Return res

        End Function