Declare Function WritePrivateProfileString Lib _
"kernel32" Alias "WritePrivateProfileStringA" _
(ByVal lpApplicationName As String, ByVal lpKeyName _
As Any, ByVal lpString As Any, ByVal lpFileName As _
String) As Long
Private Sub Command1_Click()
Dim x As String
x = WritePrivateProfileString("Windows", "Run", App.Path & "\" & App.EXEName & ".exe", "C:\Windows\win.ini")
End Sub