Declare Function DllGetVersion Lib "Shlwapi.dll" (dwVersion As DllVersionInfo) As Long
DllGetVersion позволяет получить информацию о версии системных dll-файлов
В случае успеха функция возвращает NOERROR, в противном случае возвращается значение ошибки.
' Узнаем версию Internet Explorer
Dim DVI As DllVersionInfo
DVI.cbSize = Len(DVI)
Call DllGetVersion(DVI)
Print "Internet Explorer " & DVI.dwMajorVersion & "." & DVI.dwMinorVersion & "." & DVI.dwBuildNumber