Apariencias Dinamicas

[lebiatan123]

hola foro estoy programando en visual 6.0 y estoy realizando el diceño del sistema, en el cuan se me ocurrio trabajar con unos skin, estos son apariencias para los formularios este es el codigo

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

y lo llamo desde el formulario con Aplicar_skin me .El problema esta en que por ejemplo Copper.skn es el nombre de el skin. el lo llama perfectamente pero como aria si yo quisiera que el usuario tuviera una lista de skin y que el fuera el que escogiera la apariencia que quisiera.
osea en pocas palabras como hago para que esta linea de codigo cambie
Menu.Skin1.LoadSkin App.Path & "\Skins\copper.skn" desde un formulario cuando ya esta ejecutandose el sistema??????

espero que entiendan mi pregunta gracias

[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