Labels:crt screen | laptop | monitor | web site | window OCR: VB Editor by PointEqual Insert Insert Delete Options Save Exit fName App.Path Options.txt Editor.vbp Code Edit Box UcClub.ctl Editor frm frmMain Modules BEd.bas Option Explicit Private Sub GetOptionsO Recall the most recent option setting Dim fNum As ong Dim N Long On Error GoTo FileReadError Error statements highlighted fNum FreeFile fName App Path & Options txr Open fName For Input #fNum Input #fNum sfName Input #fNum nFSize Input #fNum bBold ForN Input #fNum gnCol(N Nest Indents Next Input #fNum nExtNum Close #fNum Exit Sub FileReadError: Close #fNum MsgBox "No Options file found' End Sub Private Sub MainO SetArravs GetOptions Remarks emboldenc frmMain Show End Sub This module returns just the code for the .bas frm and .cls and .ctl files That are selected from the current Application P ...
