dim ver as string = "生成的可执行文件名"
Dim myFileVersionInfo As System.Diagnostics.FileVersionInfo = System.Diagnostics.FileVersionInfo.GetVersionInfo(ver)
MessageBox.Show(myFileVersionInfo.FileVersion())