 Long
Dim hParent As Long
Dim lMajor As Long
Dim lMinor As Long
Dim isXp As Boolean

   ' Added 2003-11-26: Check for XP and above and
   ' don't use Flat Scroll bars.  They're useless
   ' under XP.
   GetWindowsVersion lMajor, lMinor
   If (lMajor &gt; 5) Then
      isXp = True
   ElseIf (lMajor = 5) And (lMinor &gt;= 1) Then
      isXp = True
   End If
   
   If isXp Then
      m_bNoFlatScrollBars = True
   Else
      ' Just checks for flag scroll bars...
      On Error Resume Next
      lR = InitialiseF