Detectar service pack desde una aplicacion visual basic

[Beakdan]

Utilizando la API es fácil.
Pega esto en un nuevo form

Código:

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 Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
 
Private Sub Form_Load()
Dim SysInfo As OSVERSIONINFO
 
	SysInfo.dwOSVersionInfoSize = Len(SysInfo)
	GetVersionEx SysInfo
	Debug.Print SysInfo.szCSDVersion
End Sub

Saludos.