Summary: Returns the current Windows Version. Methods: WinVersionS: Returns Version name as String WinVersionI: Returns Version ID as Integer
Code formatting tags: [vbcode]... [/vbcode] Tips, Examples & Tutorials: Conditional Compilation • Validating Clipboard data before Paste Showing your App in the Systray • Applying Gradients • FlexGrid: Merging Cells Show ProgressBar in StatusBar • Move List Item between ListBoxes Add File to Recent Documents List • Show / Hide ComboBox Dropdown List Send File to Recycle Bin • Fixed-Size MDI Form • Determine Windows Version Retrieve RGB Values for TitlBar Gradient Colors • Determine if TitleBar Gradient is Enabled
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
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.
Forum Rules