Example 1:
Using DllGetVersion() to retrieve comctl32.dll version
Public Type DLLVERSIONINFO
cbSize As Long
nMajor As Long
nMinor As Long
nBuild As Long
nPlatformId As Long
End Type
Public Declare Function DllGetVersion Lib "comctl32.dll" (dvi As _
DLLVERSIONINFO) As Long
Public Function GetComCtlVersion (nMajor As Long, nMinor As Long, _
nBuild As Long) As Boolean
Dim dvi As DLLVERSIONINFO
dvi.cbSize = 20
If DllGetVersion(dvi) < 0 Then
GetComCtlVersion = False
Else
nMajor = dvi.nMajor
nMinor = dvi.nMinor
nBuild = dvi.nBuild
GetComCtlVersion = True
End If
End Function
