Option Explicit
Private Const VER_PLATFORM_WIN32s =  0 
Private Const VER_PLATFORM_WIN32_WINDOWS =  1 
Private Const VER_PLATFORM_WIN32_NT =  2 

'windows-defined type OSVERSIONINFO
Private Type OSVERSIONINFO
  OSVSize         As Long         'size, in bytes, of this data structure
  dwVerMajor      As Long         'ie NT 3.51, dwVerMajor = 3; NT 4.0, dwVerMajor = 4.
  dwVerMinor      As Long         'ie NT 3.51, dwVerMinor = 51; NT 4.0, dwVerMinor= 0.
  dwBuildNumber   As Long         'NT: build number of the OS
                                  'Win9x: build number of the OS in low-order word.
                                  '       High-order word contains major & minor ver nos.
  PlatformID      As Long         'Identifies the operating system platform.
  szCSDVersion    As String *  128  'NT: string, such as "Service Pack 3"
                                  'Win9x: 'arbitrary additional information'
End Type


'my type for holding the retrieved info
Public Type RGB_WINVER
  PlatformID      As Long
  VersionName     As String
  VersionNo       As String
  ServicePack     As String
  BuildNo         As String
End Type

Declare Function GetVersionEx Lib "kernel32" _
   Alias "GetVersionExA" _
  (lpVersionInformation As OSVERSIONINFO) As Long

Public Function GetWinVersion(win As RGB_WINVER) As String

'returns a structure (RGB_WINVER)
'filled with OS information

  #If Win32 Then
  
   Dim osv As OSVERSIONINFO
   Dim pos As Integer
   Dim sVer As String
   Dim sBuild As String
   
   osv.OSVSize = Len(osv)
   
   If GetVersionEx(osv) =  1  Then
   
     'PlatformId contains a value representing the OS
      win.PlatformID = osv.PlatformID
     
      Select Case osv.PlatformID
         Case VER_PLATFORM_WIN32s:   win.VersionName = "Win32s"
         Case VER_PLATFORM_WIN32_NT: win.VersionName = "Windows NT"
         
         Select Case osv.dwVerMajor
            Case  4 :  win.VersionName = "Windows NT"
            Case  5 :
            Select Case osv.dwVerMinor
               Case  0 :  win.VersionName = "Windows 2000"
               Case  1 :  win.VersionName = "Windows XP"
               Case  2 :  win.VersionName = "Windows 2003"
            End Select
        End Select
                  
         Case VER_PLATFORM_WIN32_WINDOWS:
         
          'The dwVerMinor bit tells if its 95 or 98.
            Select Case osv.dwVerMinor
               Case  0 :    win.VersionName = "Windows 95"
               Case  90 :   win.VersionName = "Windows ME"
               Case Else: win.VersionName = "Windows 98"
            End Select
         
      End Select
   
   
     'Get the version number
      win.VersionNo = osv.dwVerMajor & "." & osv.dwVerMinor
  
     'Get the build
      win.BuildNo = (osv.dwBuildNumber And &HFFFF&)
       
     'Any additional info. In Win9x, this can be
     '"any arbitrary string" provided by the
     'manufacturer. In NT, this is the service pack.
      pos = InStr(osv.szCSDVersion, Chr$( 0 ))
      If pos Then
         win.ServicePack = Left$(osv.szCSDVersion, pos -  1 )
      End If

   End If
   
  #Else
  
    'can only return that this does not
    'support the 32 bit call, so must be Win3x
     win.VersionName = "Windows 3.x"
  #End If
  
End Function
'----------------------
Private Sub Command18_Click()
   Call GetWinVersion(WinSysVer)
   MsgBox WinSysVer.VersionName
End Sub