程序代码 '注意：主程序下面一定要有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