将以下代码添加到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, "<?xml version='1.0' encoding='UTF-8' standalone='yes'?>" & Environment.NewLine)
            FilePut(1, "<assembly xmlns='urn:schemas-microsoft-com:asm.v1' manifestVersion='1.0'>" & Environment.NewLine)
            FilePut(1, "<assemblyIdentity version='1.0.0.0' processorArchitecture='X86' name='zx.exe' type='win32' />"

[1] [2] 下一页

在google里搜索更多VB.NET里最方面的XP风格解决方案

	Web www.51ec.org