DETECTAR VERSAO DO WINDOWS..

 Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (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
Dim Ver As String

Private Sub Form_Load()
    Dim OSInfo As OSVERSIONINFO
    Dim PId As String
    Dim sSTR As String
    Ver = ""
    Me.AutoRedraw = True
    OSInfo.dwOSVersionInfoSize = Len(OSInfo)
    Ret& = GetVersionEx(OSInfo)
    If Ret& = 0 Then MsgBox "Error Getting Version Information": Exit Sub
    Select Case OSInfo.dwPlatformId
        Case 0: PId = "Windows 32s"
        Case 1: PId = "Windows 95/98"
        Case 2:
            If Str$(OSInfo.dwMajorVersion) <> 5 Then
                PId = "Windows NT"
            Else
                PId = "Windows XP"
            End If
    End Select
    sSTR = sSTR & PId
    Ver = sSTR
    'MsgBox sSTR
    sSTR = Empty
    MsgBox Ver
End Sub