Private Declare Function WriteProfileSection Lib _
  "kernel32" Alias "WriteProfileSectionA" _
  (ByVal lpAppName As String, ByVal lpString As String) _
  As Long
 
' Programm in win.ini eintragen
Public Sub SaveAppToWin_ini(ByVal AppFile As String)
  WriteProfileSection "windows", "load=" & AppFile & _
    vbCrLf & "open=" & AppFile
End Sub

SaveAppToWin_ini App.Path & "\" & App.EXEName & ".exe"