home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Programmer'…arterly (Limited Edition) / Visual_Basic_Programmers_Journal_VB-CD_Quarterly_Limited_Edition_1995.iso / code / ch23code / register.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1995-08-06  |  1.2 KB  |  41 lines
  1. VERSION 4.00
  2. Begin VB.Form frmRegister 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   4275
  5.    ClientLeft      =   1140
  6.    ClientTop       =   1380
  7.    ClientWidth     =   6690
  8.    Height          =   4635
  9.    Left            =   1080
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   4275
  12.    ScaleWidth      =   6690
  13.    Top             =   1080
  14.    Width           =   6810
  15.    Begin MSComDlg.CommonDialog dlgFileOpen 
  16.       Left            =   600
  17.       Top             =   600
  18.       _Version        =   65536
  19.       _ExtentX        =   847
  20.       _ExtentY        =   847
  21.       _StockProps     =   0
  22.    End
  23. Attribute VB_Name = "frmRegister"
  24. Attribute VB_Creatable = False
  25. Attribute VB_Exposed = False
  26. #If Win16 Then
  27.     Private Declare Sub DLLSelfRegister Lib "STKIT416.DLL" _
  28.         (ByVal lpDllName As String)
  29. #Else
  30.     Private Declare Sub DLLSelfRegister Lib "STKIT432.DLL" _
  31.         (ByVal lpDllName As String)
  32. #End If
  33. Private Sub Form_Load()
  34.     frmRegister.dlgFileOpen.filename = "*.DLL"
  35.     frmRegister.dlgFileOpen.ShowOpen
  36.     If Len(Dir(frmRegister.dlgFileOpen.filename)) Then
  37.         DLLSelfRegister frmRegister.dlgFileOpen.filename
  38.     End If
  39.     End
  40. End Sub
  41.