If IsWinXP = True Then
    Call InitCommonControls
End If
 
Public Function IsWinXP() As Boolean
  Dim OSVersion As OSVERSIONINFO
 
  With OSVersion
    .dwOSVersionInfoSize = Len(OSVersion)
    GetVersionEx OSVersion
 
    IsWinXP = (.dwPlatformID = VER_PLATFORM_WIN32_NT) And _
      (.dwMajorVersion > 4 And .dwMinorVersion >= 1)
  End With
End Function

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)