AutoStart

'Dichiarazioni API

Public Declare Function WriteProfileSection Lib "kernel32" Alias "WriteProfileSectionA" (ByVal lpAppName As String, ByVal lpString As String) As Long

'Sul Form

WriteProfileSection "windows", "load=" & App.path + "\" + App.EXEName + ".exe" & vbCrLf & _ "open=" & App.path + "\" + App.EXEName + ".exe"""