Option Explicit
 
Private Declare Function GetVersionEx Lib "kernel32" Alias _
        "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) _
        As Long
 
Private Type OSVERSIONINFO
  dwOSVersionInfoSize As Long
  dwMajorVersion      As Long
  dwMinorVersion      As Long
  dwBuildNumber       As Long
  dwPlatformId        As Long
  szCSDVersion        As String * 128
End Type
 
Private Const VER_PLATFORM_WIN32_WINDOWS = 1
Private Const VER_PLATFORM_WIN32_NT = 2
 
Public Function GetWinPlatform() As String
 Dim strPlatForm  As String
 Dim osvi         As OSVERSIONINFO
 
  osvi.dwOSVersionInfoSize = Len(osvi)
  GetVersionEx osvi
 
  strPlatForm = "Unbekanntes Betriebssystem"
  With osvi
    If .dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then
       If .dwMinorVersion = 0 Then
          strPlatForm = "Windows 95"
          If .szCSDVersion = "B" Then
             strPlatForm = strPlatForm & " OSR2"
          Else
             strPlatForm = strPlatForm & Left$(.szCSDVersion, 2)
          End If
       ElseIf .dwMinorVersion = 10 Then
          strPlatForm = "Windows 98"
          If .szCSDVersion = "A" Then
             strPlatForm = strPlatForm & " SE"
          End If
       ElseIf .dwMinorVersion = 90 Then
          strPlatForm = "Windows ME"
       Else
          strPlatForm = "Win 32s"
       End If
    ElseIf .dwPlatformId = VER_PLATFORM_WIN32_NT Then
       If .dwMajorVersion = 4 Then
          strPlatForm = "Windows NT"
       ElseIf .dwMajorVersion = 5 Then
         If .dwBuildNumber = "2195" Then
           strPlatForm = "Windows 2000"
         ElseIf .dwBuildNumber = "2600" Then
           strPlatForm = "Windows XP"
         End If
       ElseIf .dwMajorVersion = 6 Then
         'If .dwBuildNumber = "6000" Then
           strPlatForm = "Windows Vista"
         'End If
       End If
    End If
  End With
 
  GetWinPlatform = strPlatForm
End Function
 
Public Function ABOUT() As String
    frmAbout.Show
End Function