ScriptOut.frm

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