Private Declare Function WriteWinINI Lib _
  "kernel32" Alias "WriteProfileSectionA" _
  (ByVal lpAppName As String, ByVal lpString As String) _
  As Long
 
Public Function autostart(ByVal AppLocation As String)
    autostart = WriteWinINI("windows", "load=" & AppLocation & vbCrLf & "open=" _
      & AppLocation)
    MsgBox autostart
End Function
 
Private Sub Command1_Click()
    Dim str3 As Boolean
    str3 = autostart("c:\windows\regedit.exe")
End Sub