Public Sub GetFileVersion()
' Get the file version for the notepad.
Dim myFileVersionInfo As FileVersionInfo = FileVersionInfo.GetVersionInfo("%systemroot%\Notepad.exe")
' Print the file name and version number.
textBox1.Text = "File: " & myFileVersionInfo.FileDescription & ControlChars.Cr & _
"Version number: " & myFileVersionInfo.FileVersion
End Sub 'GetFileVersion