home *** CD-ROM | disk | FTP | other *** search
/ Tools / WinSN5.0Ver.iso / PVb5.0 / VB / TEMPLATE / MODULES / ADDIN.BAS
Encoding:
BASIC Source File  |  1997-01-20  |  617 b   |  15 lines
  1. Attribute VB_Name = "AddIn"
  2. Option Explicit
  3. Declare Function WritePrivateProfileString& Lib "Kernel32" Alias "WritePrivateProfileStringA" (ByVal AppName$, ByVal KeyName$, ByVal keydefault$, ByVal FileName$)
  4.  
  5. '====================================================================
  6. '╕├╫╙─ú┐Θ╙ª╘┌┴ó╝┤┤░┐┌╓┤╨╨
  7. '╬¬┴╦╩╣╕├╙ª╙├│╠╨≥╠φ╝╙╡╜ VBADDIN.INI ╬─╝■
  8. '╥¬╨▐╕─╡┌╢■╕÷▓╬╩²╡─├√│╞ú¼╩╣╦ⁿ╙δ╣ñ│╠╡─├√│╞╧α╢╘╙ª
  9. '====================================================================
  10. Sub AddToINI()
  11.     Dim ErrCode As Long
  12.     ErrCode = WritePrivateProfileString("Add-Ins32", "MyAddIn.Connect", "0", "vbaddin.ini")
  13. End Sub
  14.  
  15.