可以 利用工具 eXeScope 修改编译好的运行程序直接实现XP样式。
原先为了实现XP样式而把一个文件（ XXX..exe.manifest）放入运行文件同一个目录 ，使用eXeScope 修改后，程序再也不用拖个尾巴啦～～（eXeScope把“XXX..exe.manifest”合进主文件一起了 ）
原来的程序要想实现XP样式 需要添加
Private Declare Function InitCommonControls Lib "Comctl32.dll" () As Long
在每个窗体的初始化添加红色代码：
Private Sub Form_Initialize()
InitCommonControls
End Sub
InitCommonControls
End Sub
在主窗口结束处添加代码，没有这些代码，程序结束后可能提示错误。
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
End
End Sub
On Error Resume Next
End
End Sub
编译生成EXE运行文件后，用eXeScope 打开，选择菜单 编辑>>XP 样式 ，就OK了。