VB - Determine Windows Version

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