If your using ActiveSkin 3 use the butons that the supply and use the ApplySkin function, to skin the buttons that the use.

I put the skinning code in a module and then make on call and all the needs to be skinned is skinned.

Here is the code of the module.

Public Sub Apply_Skin(frm As Form)

'|apply the skin to the specified form and controls
'|on the form.
Dim lLoop As Long

frm.Skin.SkinPath = App.Path & "\clipboard.skn"

On Local Error Resume Next
For lLoop = 0 To frm.Controls.Count
'|Debug.Print frm.cntrl.Name
frm.Controls(lLoop).ApplySkin frm.Skin
Next lLoop
On Local Error GoTo 0

End Sub

When you want to skin all in the form you call would look like this.


Private Sub Form_Load()

Apply_Skin Me

End Sub

Have fun.


------------------
Have Fun.
Maartin.
[email protected]
-----------------------