home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l405 / 4.ddi / FORMCHI.FR_ / FORMCHI.bin (.txt)
Encoding:
Visual Basic Form  |  1993-04-28  |  2.7 KB  |  98 lines
  1. VERSION 2.00
  2. Begin Form Form2 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Address Book"
  5.    ClientHeight    =   2805
  6.    ClientLeft      =   1845
  7.    ClientTop       =   2460
  8.    ClientWidth     =   4245
  9.    Height          =   3495
  10.    Left            =   1785
  11.    LinkTopic       =   "Form2"
  12.    MDIChild        =   -1  'True
  13.    ScaleHeight     =   2805
  14.    ScaleWidth      =   4245
  15.    Top             =   1830
  16.    Width           =   4365
  17.    Begin TextBox txtName 
  18.       Height          =   615
  19.       Left            =   1320
  20.       LinkItem        =   "c"
  21.       TabIndex        =   2
  22.       Top             =   240
  23.       Width           =   2415
  24.    End
  25.    Begin TextBox Text2 
  26.       Height          =   615
  27.       Left            =   1320
  28.       TabIndex        =   1
  29.       Text            =   "(206) - 555 6729"
  30.       Top             =   1680
  31.       Width           =   2415
  32.    End
  33.    Begin TextBox Text1 
  34.       Height          =   615
  35.       Left            =   1320
  36.       MultiLine       =   -1  'True
  37.       TabIndex        =   0
  38.       Text            =   "4000 148 Ave NE Bellevue, WA 98007"
  39.       Top             =   960
  40.       Width           =   2415
  41.    End
  42.    Begin Image Image3 
  43.       Height          =   615
  44.       Left            =   480
  45.       Picture         =   FORMCHI.FRX:0000
  46.       Stretch         =   -1  'True
  47.       Top             =   240
  48.       Width           =   720
  49.    End
  50.    Begin Image Image2 
  51.       Height          =   615
  52.       Left            =   480
  53.       Picture         =   FORMCHI.FRX:0182
  54.       Stretch         =   -1  'True
  55.       Top             =   960
  56.       Width           =   735
  57.    End
  58.    Begin Image Image1 
  59.       Height          =   615
  60.       Left            =   480
  61.       Picture         =   FORMCHI.FRX:0304
  62.       Stretch         =   -1  'True
  63.       Top             =   1680
  64.       Width           =   735
  65.    End
  66.    Begin Menu mnuFile 
  67.       Caption         =   "&File"
  68.       Begin Menu mnuFileNew 
  69.          Caption         =   "&New"
  70.       End
  71.       Begin Menu mnuFileOpen 
  72.          Caption         =   "&Open..."
  73.       End
  74.       Begin Menu mnuDash 
  75.          Caption         =   "-"
  76.       End
  77.       Begin Menu mnuFileExit 
  78.          Caption         =   "E&xit"
  79.       End
  80.    End
  81.    Begin Menu mnuWindow 
  82.       Caption         =   "&Window"
  83.       Begin Menu mnuWindowTile 
  84.          Caption         =   "&Tile"
  85.       End
  86.       Begin Menu mnuWindowCascade 
  87.          Caption         =   "&Cascade"
  88.       End
  89.    End
  90. Sub Form_Load ()
  91.     Height = 3705
  92.     Width = 4290
  93. End Sub
  94. Sub mnuFileOpen_Click ()
  95. filename$ = "Addrss.txt"
  96. Open filename$ For Input As #1
  97. End Sub
  98.