Botones dependiendo de vercion de windows

[manzarinaa]

Hola manumaf
esto va con apis
'Código para el Modulo
Declare Function GetVersionEx Lib "kernel32" 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

Public Const PLATAFORMA_WIN32_NT& = 2
Public Const PLATAFORMA_WIN32_WINDOWS& = 1

'Código para el procedimiento
'Definimos las variables
Dim Version As OSVERSIONINFO
Dim CadenaResultante As Long
Dim x As Long

Version.dwOSVersionInfoSize = Len(Version)

CadenaResultante = GetVersionEx(Version)

'mostramos el resultado
If Version.dwPlatformId = PLATAFORMA_WIN32_NT Then
botonwindowsNT.visible
elseIf Version.dwPlatformId = PLATAFORMA_WIN32_WINDOWS Then
botonwindows9598.visible
end if
luego haypara sacar la version de windows, pero no he terminado de entender y con un select case(version) muestras cada boton
siento nopoder ayudarte mejor
mira esta api por internet, que lo explican mejor y mas completo