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 >
Wrap
Text File
|
1994-10-08
|
1KB
|
51 lines
VERSION 4.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 4230
ClientLeft = 1095
ClientTop = 1515
ClientWidth = 6720
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 400
size = 8.25
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 4635
Left = 1035
LinkTopic = "Form1"
ScaleHeight = 4230
ScaleWidth = 6720
Top = 1170
Width = 6840
Begin VB.TextBox Text1
Height = 615
Left = 960
TabIndex = 1
Top = 2280
Width = 4575
End
Begin VB.CommandButton Command1
Caption = "Command1"
Height = 975
Left = 1680
TabIndex = 0
Top = 480
Width = 2295
End
End
Attribute VB_Name = "Form1"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Dim AO As Object
Private Sub Command1_Click()
Set AO = CreateObject("Project1.AddressObject")
AO.FindTelephoneNumbers
Text1.Text = AO.Workphone()
End Sub