There is an API to get the paltform version:

Code:
Private Type OSVERSIONINFO
        dwOSVersionInfoSize As Long
        dwMajorVersion As Long
        dwMinorVersion As Long
        dwBuildNumber As Long
        dwPlatformId As Long
        szCSDVersion As String * 128      '  Maintenance string for PSS usage
End Type
Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
Private Const VER_PLATFORM_WIN32s = 0
Private Const VER_PLATFORM_WIN32_WINDOWS = 1
Private Const VER_PLATFORM_WIN32_NT = 2

'---------Put this on any event you want

    Dim os As OSVERSIONINFO
    Dim lret As Long
    
    lret = GetVersionEx(os)
    If lret <> 0 Then
        Select Case os.dwPlatformId
            Case VER_PLATFORM_WIN32s
                MsgBox "Window3.1/3.11"
            Case VER_PLATFORM_WIN32_WINDOWS
                MsgBox "Window95/98"
            Case VER_PLATFORM_WIN32_NT
                MsgBox "WindowNT"
        End Select
    Else
        MsgBox "Error retrieving platform version."
    End If
------------------

Serge

Software Developer
[email protected]
[email protected]
ICQ#: 51055819



[This message has been edited by Serge (edited 11-18-1999).]