Current News Archived News Search News Discussion Forum Old Forum Install Programs More Downloads... Troubleshooting Source Code Format Specs. Misc. Information Non-SF Stuff Links Small banner for links to this site: |
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
|