Botones dependiendo de vercion de windows

[manumaf]

Hola mi pregunta es simple, ¿Como ago para que los botones de mi programas sean distintos segun el sistema operativo?

Osea en windows XP tiene unos botonos particulares y quiero que cuando ejecuten mi programas aparescan los botones default de XP

[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

[manzarinaa]

http://www.lawebdelprogramador.com/t...p#GetVersionEx

[David]

En las http://www.forosdelweb.com/1903110-post157.html hay un ejemplo de cómo hacerlo.

Saludos