Código:
Option Explicit
Private Type DllVersionInfo
cbSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
End Type
Private Declare Function DllGetVersion _
Lib "Shlwapi.dll" (dwVersion As DllVersionInfo) As Long
Public Function IEVersionLong() As String
Dim udtVersionInfo As DllVersionInfo
udtVersionInfo.cbSize = Len(udtVersionInfo)
Call DllGetVersion(udtVersionInfo)
IEVersionLong = "Internet Explorer " & _
udtVersionInfo.dwMajorVersion & "." & _
udtVersionInfo.dwMinorVersion & "." & _
udtVersionInfo.dwBuildNumber
End Function
Private Sub Form_Load()
Dim udtVersionInfo As DllVersionInfo
Label1 = IEVersionLong
Label1.AutoSize = True
End Sub
Pero me dice que tengo la version 6.0 ...xx cuando tengo IE 7
Alguien tiene algo que sirva por ahí?. Thanks.