A me dice Xp su Vista ultimate con sp1. Aspetta che ti posto il codice con il quale lo richiamo.

codice:
.....
 ElseIf (lpVersionInformation.dwPlatformId = Platform_Windows_NT_2K_XP) And (lpVersionInformation.dwMajorVersion = 5) And (lpVersionInformation.dwMinorVersion = 1) Then
        OperatingSystem = System_Windows_XP
        frmMain.sb.Panels(3).Text = "Windows XP" 'Passo il risultato all'MDIForm
    ElseIf (lpVersionInformation.dwPlatformId = Platform_Windows_NT_2K_XP) And (lpVersionInformation.dwMajorVersion = 6) And (lpVersionInformation.dwMinorVersion = 1) Then
        OperatingSystem = System_Windows_VISTA
        frmMain.sb.Panels(3).Text = "Windows VISTA" 'Passo il risultato all'MDIForm
In pratica ho dichiarato tutto in un modulo .bas e avendo una status bar gli passo il risultato direttamente dal modulo .bas all'evento form_load, facendo così:
codice:
frmMain.sb.Panels(3).Text = "Windows XP"
frmMain.sb.Panels(3).Text = "Windows Vista"   'Questo l'ho messo per vedere se funziona.