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 / ch10code / ctrl.frm < prev    next >
Text File  |  1994-10-08  |  1KB  |  51 lines

  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   4230
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1515
  7.    ClientWidth     =   6720
  8.    BeginProperty Font 
  9.       name            =   "MS Sans Serif"
  10.       charset         =   0
  11.       weight          =   400
  12.       size            =   8.25
  13.       underline       =   0   'False
  14.       italic          =   0   'False
  15.       strikethrough   =   0   'False
  16.    EndProperty
  17.    Height          =   4635
  18.    Left            =   1035
  19.    LinkTopic       =   "Form1"
  20.    ScaleHeight     =   4230
  21.    ScaleWidth      =   6720
  22.    Top             =   1170
  23.    Width           =   6840
  24.    Begin VB.TextBox Text1 
  25.       Height          =   615
  26.       Left            =   960
  27.       TabIndex        =   1
  28.       Top             =   2280
  29.       Width           =   4575
  30.    End
  31.    Begin VB.CommandButton Command1 
  32.       Caption         =   "Command1"
  33.       Height          =   975
  34.       Left            =   1680
  35.       TabIndex        =   0
  36.       Top             =   480
  37.       Width           =   2295
  38.    End
  39. End
  40. Attribute VB_Name = "Form1"
  41. Attribute VB_Creatable = False
  42. Attribute VB_Exposed = False
  43. Dim AO As Object
  44.  
  45. Private Sub Command1_Click()
  46.     Set AO = CreateObject("Project1.AddressObject")
  47.     AO.FindTelephoneNumbers
  48.     Text1.Text = AO.Workphone()
  49. End Sub
  50.  
  51.