[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

أخي الغالي " أحمد منصور "

أدعو الله أن ييسّر لك أمورك مثلما دومًا سبّاق لتيسير أمورنا
معذرة على الرّجوع إلى هذا الموضوع ..

كل شيء يسير على ما يرام و الحمد لله .. فقط لم أعرف و لم أتوصّل إلى صيغة الكتابة الصحيحة لهذا الكود ليتم إضافته إلى الملف المخفي

إقتباس :Private Sub Form_Load()
Combo1.AddItem ("azul.skn")
End Sub

كود :

Private Sub Combo1_Clic()                  

Skin1.LoadSkin App.Path & "\" & (Combo1.Text) & ""
Skin1.ApplySkin Me.hwnd

End Sub

أين يتم إضافة الكلمة " abdelaziz" التي هي اسم الملف المخفي بنفس طريق هذا الكود مثلاً :

إقتباس :Private Sub Form_Load()
WindowsMediaPlayer1.URL = App.Path & "\abdelaziz\modh arafto allah rabbi.mp3"
End Sub

بارك الله فيك و في أوقاتك و صحّتك مقدّمًا سيّدي المحترم
فائق إحتراماتي