Summary:
Returns the current Windows Version.
Methods:
WinVersionS: Returns Version name as String
WinVersionI: Returns Version ID as Integer
Printable View
Summary:
Returns the current Windows Version.
Methods:
WinVersionS: Returns Version name as String
WinVersionI: Returns Version ID as Integer
In your code the LoWord function is missing!
VB Code:
Private Function LoWord(lngIn As Long) As Integer If (lngIn And &HFFFF&) > &H7FFF Then LoWord = (lngIn And &HFFFF&) - &H10000 Else LoWord = lngIn And &HFFFF& End If End Function
You're absolutely right, blaff. Thanks for catching that.
Sorry to all for the confusion. :o