As Integer
Dim sBuf As String

   iFile = FreeFile

On Error GoTo ErrorHandler
   Open App.Path &amp; "\cTextBoxBackground.cls" For Binary Access Read As #iFile
   sBuf = Space$(LOF(iFile))
   Get #iFile, , sBuf
   Close #iFile
   txtTest.Text = sBuf
   Exit Sub

ErrorHandler:
   Close #iFile
   Exit Sub
End Sub

Private Sub cmdBitmapDialog_Click()
   frmBitmapDialog.Show vbModal, Me
End Sub

Private Sub cmdOK_Click()
   Unload Me
End Sub

Private Sub Form_Load()
   
   pLoad
   
   Set m_cLargeTextBoxBack 