Visual Basic 6 - Ricavare il Service Pack

Salve a tutti,
per conoscere le informazioni del PC in uso utilizzo la Funzione Environ.
Se invece voglio sapere quale Service Pack del SO è installato sul computer come lo posso ricavare?

Cosi'

Private Declare Function GetVersionExA _
    Lib "Kernel32" (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 Sub Form_Load()
    Dim lpVI As OSVERSIONINFO
    lpVI.dwOSVersionInfoSize = Len(lpVI)
    GetVersionExA lpVI
    
    MsgBox lpVI.szCSDVersion
End Sub

Grazie theprogrammer, questo mi mancava proprio

Di nulla tippolo ... ci risentiamo (anche altrove ... :-) )

[OT]Sai che ancora non ti ho riconosciuto?