1.66

[WinMPQ.git] / ScriptOut.frm

VERSION 4.00\r
Begin VB.Form ScriptOut \r
   BorderStyle     =   3  'Fixed Dialog\r
   Caption         =   "Script Output"\r
   ClientHeight    =   4575\r
   ClientLeft      =   480\r
   ClientTop       =   1275\r
   ClientWidth     =   9615\r
   Height          =   4980\r
   Icon            =   "ScriptOut.frx":0000\r
   Left            =   420\r
   LinkTopic       =   "Form1"\r
   MaxButton       =   0   'False\r
   MinButton       =   0   'False\r
   ScaleHeight     =   4575\r
   ScaleWidth      =   9615\r
   ShowInTaskbar   =   0   'False\r
   Top             =   930\r
   Width           =   9735\r
   Begin VB.TextBox oText \r
      BackColor       =   &H8000000F&\r
      BorderStyle     =   0  'None\r
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} \r
         Name            =   "Terminal"\r
         Size            =   9\r
         Charset         =   255\r
         Weight          =   400\r
         Underline       =   0   'False\r
         Italic          =   0   'False\r
         Strikethrough   =   0   'False\r
      EndProperty\r
      Height          =   4575\r
      Left            =   0\r
      Locked          =   -1  'True\r
      MultiLine       =   -1  'True\r
      TabIndex        =   0\r
      Top             =   0\r
      Width           =   9615\r
   End\r
End\r
Attribute VB_Name = "ScriptOut"\r
Attribute VB_Creatable = False\r
Attribute VB_Exposed = False\r
Option Explicit\r
\r
Private Sub Form_Load()\r
Left = (Screen.Width - Width) / 2\r
Top = (Screen.Height - Height) / 2\r
End Sub\r
Private Sub oText_Change()\r
If Len(oText) > 8192 Then oText = Right(oText, 8192)\r
End Sub\r