كيف أستطيع قراءة الخصائص الاضافية لأي ملف تنفيذي

Dim x As System.Diagnostics.FileVersionInfo = System.Diagnostics.FileVersionInfo.GetVersionInfo("E:\googleearth.exe")
MsgBox(x.CompanyName) 'إسم الشركة
MsgBox(x.FileName) '...
MsgBox(x.ProductName)
MsgBox(x.FileVersion)
MsgBox(x.Comments)
MsgBox(x.IsPatched)
MsgBox(x.LegalCopyright)
MsgBox(x.LegalTrademarks)
MsgBox(x.FileDescription)
MsgBox(x.InternalName)
End Sub

	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load