Apariencias Dinamicas

[Kruzado]

puedes crear un combobox con todos los skins por ejemplo :

combo1.additem "copper"
combo1.additem "red"
combo1.additem "space"... y asi con todos los nombres de tus skins, sin la extension

y en el evento clik del combo cargas tu skin ejemplo

public sub combo1_click()
x=aplicarskin me
end sub

Public Function Aplicar_skin(ByVal Formulario As Form)
Menu.Skin1.LoadSkin App.Path & "\Skins\" & combo1.text & ".skn"
Menu.Skin1.ApplySkin Formulario.hWnd
End Function