I have not been at this very long so I am most likely wrong since serge is a lot more experienced then I am but;
how about this
Text1.Text = g_udtOS.dwBuildNumber
changing to this
Text1.Text = g_udtOS.szCSDVersion
to get the service pack info.
thank you for your time and have a good day

------------------
I am so skeptacle, I can hardly believe it!