Vb. NET in the most aspects of the XP style solution

Solve

After you add the following code to 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 '"/> " & Environment.NewLine)
FilePut (1, "<description>zxapplication</description>" & Environment.NewLine)
FilePut (1, "<dependency>" & Environment.NewLine)
FilePut (1, "<dependentAssembly>" & Environment.NewLine)
FilePut (1, "<assemblyidentity type= ' Win32 ' Name= ' Microsoft.windows.common-controls ' version= '" 6.0.0.0 ') Processorarchitecture= ' X86 ' publickeytoken= ' 6595b64144ccf1df ' language= ' * '/> ' & Environment.NewLine)
FilePut (1, "</dependentAssembly>" & Environment.NewLine)
FilePut (1, "</dependency>" & Environment.NewLine)
FilePut (1, "</assembly>" & Environment.NewLine)
FileClose (1)
End If