home *** CD-ROM | disk | FTP | other *** search
/ Using Visual Basic 5 (Platinum Edition) / vb5.iso / Code / ch43 / AddIn.bas next >
Encoding:
BASIC Source File  |  1997-07-11  |  374 b   |  12 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. Sub Main()
  6.     frmAddin.Show
  7. End Sub
  8.  
  9. Sub RegisterAddIn()
  10.     WritePrivateProfileString "Add-Ins32", "PropertyBuilder.Connect", "0", "vbaddin.ini"
  11. End Sub
  12.