vbAccelerator - Contents of code file: frmDocument.frm

VERSION 5.00
Begin VB.Form frmDocument 
   Caption         =   "Document 1"
   ClientHeight    =   4455
   ClientLeft      =   5055
   ClientTop       =   4305
   ClientWidth     =   5415
   Icon            =   "frmDocument.frx":0000
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   297
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   361
   Begin VB.TextBox txtDocument 
      BeginProperty Font 
         Name            =   "Lucida Console"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   4335
      Left            =   120
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   0
      Text            =   "frmDocument.frx":014A
      Top             =   60
      Width           =   5175
   End
End
Attribute VB_Name = "frmDocument"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Load()
   Dim sFile As String
   sFile = App.Path & "\cMDISplit.cls"
   On Error Resume Next
   Dim iFile As Integer
   iFile = FreeFile
   Open sFile For Binary Access Read Lock Write As #iFile
   Dim sBuf As String
   sBuf = String$(LOF(iFile), 32)
   Get #iFile, , sBuf
   Close #iFile
   txtDocument.Text = sBuf
End Sub

Private Sub Form_Resize()
   On Error Resume Next
   txtDocument.Move 2, 2, Me.ScaleWidth - 4, Me.ScaleHeight - 4
End Sub