VB.NET里最方面的XP风格解决方案

将以下代码添加到InitializeComponent()之后

On Error Resume Next
Dim y As Integer
Dim AppName As String
Dim ManFileName As String
Dim FullAppExeNameAndPath As String
FullAppExeNameAndPath = Application.ExecutablePath
y = Application.StartupPath.Length
' y = FullAppExeNameAndPath.LastIndexOf("")
y = y + 1
AppName = FullAppExeNameAndPath.Substring(y, FullAppExeNameAndPath.Length - y)
ManFileName = AppName & ".manifest"

If System.IO.File.Exists(ManFileName) = False Then
FileOpen(1, ManFileName, OpenMode.Binary)
FilePut(1, "

" & Environment.NewLine)
FilePut(1, "

1<assembly manifestversion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1">" &amp; Environment.NewLine)   
2FilePut(1, "<assemblyidentity name="zx.exe" processorarchitecture="X86" type="win32" version="1.0.0.0"></assemblyidentity>" &amp; Environment.NewLine)   
3FilePut(1, "<description>zxapplication</description>" &amp; Environment.NewLine)   
4FilePut(1, "<dependency>" &amp; Environment.NewLine)   
5FilePut(1, "<dependentassembly>" &amp; Environment.NewLine)   
6FilePut(1, "<assemblyidentity language="*" name="Microsoft.Windows.Common-Controls" processorarchitecture="X86" publickeytoken="6595b64144ccf1df" type="win32" version="6.0.0.0"></assemblyidentity>" &amp; Environment.NewLine)   
7FilePut(1, "</dependentassembly>" &amp; Environment.NewLine)   
8FilePut(1, "</dependency>" &amp; Environment.NewLine)   
9FilePut(1, "</assembly>

" & Environment.NewLine)
FileClose(1)
End If