Ottenere la versione del file in esecuzione

Un po' pedestre:

Dim fullPath As String = ""
fullPath &= My.Application.Info.DirectoryPath & "\" &
fullPath &= My.Application.Info.AssemblyName & ".exe"

Return FileVersionInfo.GetVersionInfo(fullPath).FileVersion

Migliorabile la parte per recuperare il fullPath dell'assembly corrente.