Get The Windows Ver. Type in Access Form

Put this in a module...
Call like this:

Private Sub Form_DblClick()
MsgBox GetWinVer
End Sub

Option Explicit

Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type

Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" _
(LpVersionInformation As OSVERSIONINFO) As Long
Declare Function GetVersion Lib "kernel" () As Long Declare Function GetWinFlags Lib "kernel" () As Long

Public Function GetWinVer() As String
Dim verinfo As OSVERSIONINFO
Dim lngReturn As Long
Dim strTemp As String
verinfo.dwOSVersionInfoSize = Len(verinfo)
lngReturn = GetVersionEx(verinfo)
If lngReturn = 0 Then
GetWinVer = ""
Exit Function
End If
Select Case verinfo.dwPlatformId
Case 0
strTemp = "Windows 32s "
Case 1
Select Case verinfo.dwMajorVersion
Case 4
Ifverinfo.dwMinorVersion = 0 Then
strTemp = "Windows 95 "
ElseIf verinfo.dwMinorVersion = 10 Then
strTemp = "Windows 98 "
ElseIf verinfo.dwMinorVersion = 90 Then
strTemp = "Windows Me " Else
strTemp = "Windows 9x "
End If
End Select
Case 2
Select Case verinfo.dwMajorVersion
Case 4
strTemp = "Windows NT "
Case 5
If verinfo.dwMinorVersion = 0 Then
strTemp = "Windows 2000 "
ElseIf verinfo.dwMinorVersion = 1 Then
strTemp = "Windows XP "
End If
Case Else
End Select
strTemp = "Windows NT "
End Select
strTemp = strTemp &verinfo.dwMajorVersion & "." & verinfo.dwMinorVersion & " Build (" & verinfo.dwBuildNumber & ")"
GetWinVer = strTemp
End Function

This question was closed by the author