ScriptOut.frm

   1 VERSION 4.00
   2 Begin VB.Form ScriptOut
   3    BorderStyle     =   3  'Fixed Dialog
   4    Caption         =   "Script Output"
   5    ClientHeight    =   4575
   6    ClientLeft      =   480
   7    ClientTop       =   1275
   8    ClientWidth     =   9615
   9    Height          =   4980
  10    Icon            =   "ScriptOut.frx":0000
  11    Left            =   420
  12    LinkTopic       =   "Form1"
  13    MaxButton       =   0   'False
  14    MinButton       =   0   'False
  15    ScaleHeight     =   4575
  16    ScaleWidth      =   9615
  17    ShowInTaskbar   =   0   'False
  18    Top             =   930
  19    Width           =   9735
  20    Begin VB.TextBox oText
  21       BackColor       =   &H8000000F&
  22       BorderStyle     =   0  'None
  23       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
  24          Name            =   "Terminal"
  25          Size            =   9
  26          Charset         =   255
  27          Weight          =   400
  28          Underline       =   0   'False
  29          Italic          =   0   'False
  30          Strikethrough   =   0   'False
  31       EndProperty
  32       Height          =   4575
  33       Left            =   0
  34       Locked          =   -1  'True
  35       MultiLine       =   -1  'True
  36       TabIndex        =   0
  37       Top             =   0
  38       Width           =   9615
  39    End
  40 End
  41 Attribute VB_Name = "ScriptOut"
  42 Attribute VB_Creatable = False
  43 Attribute VB_Exposed = False
  44 Option Explicit
  45
  46 Private Sub Form_Load()
  47 Left = (Screen.Width - Width) / 2
  48 Top = (Screen.Height - Height) / 2
  49 End Sub
  50 Private Sub oText_Change()
  51 If Len(oText) > 8192 Then oText = Right(oText, 8192)
  52 End Sub