Add the following code to the hidden initializecomponent () of the Form Designer.
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
