VERSION 2.00
Begin Form formcity 
   ClientHeight    =   3090
   ClientLeft      =   4080
   ClientTop       =   4050
   ClientWidth     =   5400
   ClipControls    =   0   'False
   Height          =   3495
   Left            =   4020
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   ScaleHeight     =   3090
   ScaleWidth      =   5400
   Top             =   3705
   Width           =   5520
   Begin TextBox Text1 
      Height          =   2445
      Left            =   120
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   1
      Top             =   90
      Width           =   5175
   End
   Begin CommandButton comando 
      Caption         =   "PRONTO"
      Height          =   315
      Left            =   4080
      TabIndex        =   0
      Top             =   2640
      Width           =   960
   End
End

Sub comando_Click ()
    formcity.Hide
End Sub

Sub Command1_Click ()
    formcity.Hide
End Sub

Sub Form_Load ()
    Open filename$ For Input As #1
    formcity.Text1 = Input(LOF(1), #1)
    Close
End Sub

