Fai attenzione ... non mi pare di averti detto che ci vuole la parte segnata in rosso ...

codice:
ElseIf (lpVersionInformation.dwPlatformId = Platform_Windows_NT_2K_XP) And (lpVersionInformation.dwMajorVersion = 6) And (lpVersionInformation.dwMinorVersion = 1) Then
Se fai attenzione, nel codice che ti ho suggerito, quella parte non c'e' ...

Questo fatto mi suggerisce l'ipotesi che tu aggiunga pezzi di codice senza esaminarli e capirli ...