Temas

Estaba buscando algun codigo para detectar la version del IE y me encontré con el siguiente:

Código [Seleccionar] Expandir

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.