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
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
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
|