How do I determine which OS is running

I need an API to determine what OS is running. and if its windows, what version of windows is running.

Code:

Declare Function GetVersionEx Lib "kernel32.dll" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long Type OSVERSIONINFO dwOSVersionInfoSize As Long dwMajorVersion As Long dwMinorVersion As Long dwBuildNumber As Long dwPlatformId As Long szCSDVersion As String * 128 End Type Dim os As OSVERSIONINFO ' receives version information Dim retval As Long ' return value os.dwOSVersionInfoSize = Len(os) ' set the size of the structure retval = GetVersionEx(os) ' read Windows's version information

Already answer on the API section

http://forums.vb-world.net/showthrea...threadid=18335