E tu, ke razza di programmatore sei?
(.... continuo lo scherzo)

codice:
' Se questo codice lo metti in un modulo .bas 
' ricordati di sostituire TUTTI i 'Private' con 'Public'
' Se resta in un Form, lascialo così

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 Const VER_PLATFORM_WIN32s = 0
Private Const VER_PLATFORM_WIN32_WINDOWS = 1
Private Const VER_PLATFORM_WIN32_NT = 2

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

Private Function SysVersions32(PlatformName As String, WindowsVersion As String, BuildVersion As String)
   Dim v As OSVERSIONINFO, retval As Long

   v.dwOSVersionInfoSize = Len(v)
   retval = GetVersionEx(v)

   WindowsVersion = v.dwMajorVersion & "." & v.dwMinorVersion
   BuildVersion = v.dwBuildNumber And &HFFFF&

   Select Case v.dwPlatformId
   Case VER_PLATFORM_WIN32_WINDOWS
      PlatformName = "Windows 95"
   Case VER_PLATFORM_WIN32_NT
      PlatformName = "Windows NT"
   End Select
         
End Function

' Per richiamare la funzione :

    Dim PlatformName As String, WindowsVersion As String, BuildVersion As String
    
    Call SysVersions32(PlatformName, WindowsVersion, BuildVersion)
    
    Text1.Text = PlatformName
    Text2.Text = WindowsVersion
    Text3.Text = BuildVersion
Ciao,