SoloCodigo

Hola Maxier:

Yo para saber en que plataforma está corriendo el programa uso el sig. código:

'****************************
Private Type OSVERSIONINFO
   dwOSVersionInfoSize As Long
   dwMajorVersion As Long
   dwMinorVersion As Long
   dwBuildNumber As Long
   dwPlatformId As Long           '1 = Windows 95.
                                  '2 = Windows NT
   szCSDVersion As String * 128
End Type

Private Declare Function GetVersionExA Lib "kernel32" (lpVersionInformation As OSVERSIONINFO) As Integer

Private Function EsNt() As Boolean
    Static sCalculado As Boolean
    Static iValor As Boolean
   
    If Not sCalculado Then
        iValor = GetVersion = 2
        sCalculado = True
    End If
    EsNt = iValor
End Function

Private Function GetVersion() As Long
   Dim osinfo As OSVERSIONINFO
   Dim retvalue As Integer
   osinfo.dwOSVersionInfoSize = 148
   osinfo.szCSDVersion = Space$(128)
   retvalue = GetVersionExA(osinfo)
   GetVersion = osinfo.dwPlatformId
End Function
'****************************

Así como está lo puedes colocar en un form, pero si lo colocas en un módulo cambia la delaración de la función EsNt de Private a Public.

Retorna True si corre en la plataforma NT y False si es 95/98/ME

Saludos,
Javier