ALTERAR A SKIN EM TEMPO DE EXECUCAO E SALVA-LA

SAMATE82 25/01/2011 12:19:47
#363353

BOM GALERA EU CONSEGUI LISTAR AS SKINS E TROCAL-A EM TEMPO DE EXECUÇÃO, MAS COMO EU FAÇÕ PARA SALVAR OS FORMS ALTERADOS COM A SKIN?

MEU CÓDIGO

Private Sub Command1_Click()
Dim pasta
pasta = [Ô]CAMINHO DAS SKINS[Ô]

Skin1.LoadSkin pasta & [Ô]\[Ô] & List1.List(List1.ListIndex)
Skin1.ApplySkin Me.hwnd

End Sub

Private Sub Form_Load()
Dim fs, F, f1, fc, s, pasta
pasta = [Ô]CAMINHO DAS SKINS[Ô]
Set fs = CreateObject([Ô]Scripting.FileSystemObject[Ô])
Set F = fs.GetFolder(pasta)
Set fc = F.Files
For Each f1 In fc
s = f1.Name
List1.AddItem s
Next

End Sub

ME AJUDEM