程序代码

'注意：主程序下面一定要有SkinH.dll和she格式的两个文件才能使用以下代码,相关文件请到程序附件中下载

Public Declare Function SkinH_SetAero Lib "SkinH.dll" (ByVal hwnd As Long) As Long
Public Declare Function SkinH_Attach Lib "SkinH.dll" () As Long
Public Declare Function SkinH_AttachEx Lib "SkinH.dll" (ByVal lpSkinFile As String, ByVal lpPasswd As String) As Long
'-----------------------------以上代码放到模块里-----------------------------
Private Sub Form_Load()
SkinH_Attach                               '加载默认皮肤skin.she
'SkinH_AttachEx App.Path & "\xxx.she", ""  '调用指定皮肤(文件名不能为skin.she)
'SkinH_SetAero 1                           '边框模糊化
    End Sub

附件:skinh皮肤Dll.zip