Source Code 1994 March

home *** CD-ROM | disk | FTP | other *** search

/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / win3 / programr / vbasic / loanapp.exe / LOANF1.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1993-07-22 | 36.9 KB | 1,146 lines

VERSION 2.00 Begin Form Form1 BackColor = &H00FF0000& BorderStyle = 1 'Fixed Single Caption = "Uniform Residential Loan Application" ClientHeight = 5865 ClientLeft = 15 ClientTop = 1920 ClientWidth = 9570 ForeColor = &H00000000& Height = 6555 Left = -45 LinkMode = 1 'Source LinkTopic = "Form1" ScaleHeight = 391 ScaleMode = 3 'Pixel ScaleWidth = 638 Top = 1290 Width = 9690 Begin PictureBox Picture1 AutoRedraw = -1 'True AutoSize = -1 'True Height = 2430 Left = 90 Picture = LOANF1.FRX:0000 ScaleHeight = 2400 ScaleWidth = 9375 TabIndex = 0 Top = 480 Visible = 0 'False Width = 9405 Begin Label LabelA FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 7 Left = 3825 TabIndex = 13 Top = 2190 Width = 5520 End Begin Label LabelA Alignment = 2 'Center Caption = " " FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 6 Left = 2670 TabIndex = 12 Top = 2175 Width = 1035 End Begin Label LabelA Alignment = 1 'Right Justify FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 5 Left = 1560 TabIndex = 11 Top = 2175 Width = 855 End Begin Label LabelA FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 4 Left = 195 TabIndex = 10 Top = 2190 Width = 1275 End Begin Label LabelA Caption = " " FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 3 Left = 7605 TabIndex = 9 Top = 1635 Width = 1725 End Begin Label LabelA FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 2 Left = 5805 TabIndex = 8 Top = 1635 Width = 1695 End Begin Label LabelA FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 1 Left = 900 TabIndex = 7 Top = 1605 Width = 4815 End End Begin PictureBox Picture3 AutoRedraw = -1 'True AutoSize = -1 'True BackColor = &H00FFFFFF& ForeColor = &H00000000& Height = 4530 Left = 75 Picture = LOANF1.FRX:3242 ScaleHeight = 4500 ScaleWidth = 9375 TabIndex = 2 Top = 480 Visible = 0 'False Width = 9405 Begin VHedit HEdit2 DelayRecog = -1 'True Height = 765 InflateBottom = 270 InflateLeft = 270 InflateRight = 270 InflateTop = 270 Left = 4740 TabIndex = 57 Top = 3690 Version = 268435458 Width = 3345 End Begin VHedit HEdit1 DelayRecog = -1 'True Height = 765 InflateBottom = 270 InflateLeft = 270 InflateRight = 270 InflateTop = 270 Left = 75 TabIndex = 56 Top = 3690 Version = 268435458 Width = 3345 End Begin Label LabelH Caption = " " FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 7 Left = 6750 TabIndex = 45 Top = 1875 Width = 2595 End Begin Label Label4 BorderStyle = 1 'Fixed Single Caption = " Erase Signature" Height = 435 Index = 1 Left = 8220 TabIndex = 55 Top = 4020 Width = 1095 End Begin Label Label4 BorderStyle = 1 'Fixed Single Caption = " Erase Signature" Height = 435 Index = 0 Left = 3540 TabIndex = 54 Top = 4020 Width = 1095 End Begin Label Label3 Alignment = 2 'Center Caption = " " FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 2 Left = 8205 TabIndex = 49 Top = 3690 Width = 1125 End Begin Label Label3 Alignment = 2 'Center Caption = " " FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 1 Left = 3540 TabIndex = 48 Top = 3720 Width = 1095 End Begin Label LabelJ Caption = " " FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 600 Index = 1 Left = 4740 TabIndex = 47 Top = 2535 Width = 4575 End Begin Label LabelI Caption = " " FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 600 Index = 1 Left = 45 TabIndex = 46 Top = 2520 Width = 4590 End Begin Label LabelJ Caption = " " FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 2 Left = 8820 TabIndex = 51 Top = 2160 Width = 495 End Begin Label LabelI Caption = " " FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 2 Left = 4140 TabIndex = 50 Top = 2160 Width = 495 End Begin Label LabelH Alignment = 2 'Center Caption = " " FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 6 Left = 6210 TabIndex = 44 Top = 1875 Width = 435 End Begin Label LabelG Caption = " " FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 7 Left = 2055 TabIndex = 43 Top = 1860 Width = 2565 End Begin Label LabelG Alignment = 2 'Center Caption = " " FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 6 Left = 1515 TabIndex = 42 Top = 1875 Width = 435 End Begin Label LabelH Alignment = 2 'Center Caption = " " FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 240 Index = 8 Left = 4740 TabIndex = 61 Top = 1695 Width = 1395 End Begin Label LabelG Alignment = 2 'Center FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 240 Index = 8 Left = 45 TabIndex = 60 Top = 1680 Width = 1395 End Begin Label Label2 Caption = "Marital Status" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 1 Left = 4740 TabIndex = 62 Top = 1380 Width = 1395 End Begin Label Label2 Caption = "Marital Status" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 0 Left = 45 TabIndex = 59 Top = 1365 Width = 1395 End Begin Label LabelH Alignment = 2 'Center Caption = " " FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 5 Left = 8370 TabIndex = 41 Top = 1080 Width = 975 End Begin Label LabelH Alignment = 2 'Center Caption = " " FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 4 Left = 7950 TabIndex = 40 Top = 1080 Width = 315 End Begin Label LabelH Alignment = 2 'Center Caption = " " FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 3 Left = 6060 TabIndex = 39 Top = 1080 Width = 1785 End Begin Label LabelH Alignment = 2 'Center Caption = " " FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 2 Left = 4740 TabIndex = 38 Top = 1080 Width = 1215 End Begin Label LabelG Alignment = 2 'Center Caption = " " FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 5 Left = 3690 TabIndex = 37 Top = 1080 Width = 945 End Begin Label LabelG Alignment = 2 'Center Caption = " " FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 4 Left = 3270 TabIndex = 36 Top = 1080 Width = 315 End Begin Label LabelG Alignment = 2 'Center Caption = " " FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 3 Left = 1380 TabIndex = 35 Top = 1080 Width = 1785 End Begin Label LabelG Alignment = 2 'Center Caption = " " FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 2 Left = 30 TabIndex = 34 Top = 1080 Width = 1245 End Begin Label LabelH Caption = " " FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 1 Left = 4725 TabIndex = 33 Top = 540 Width = 4605 End Begin Label LabelG Caption = " " FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 1 Left = 30 TabIndex = 32 Top = 555 Width = 4605 End End Begin PictureBox Picture2 AutoRedraw = -1 'True AutoSize = -1 'True Height = 4530 Left = 75 Picture = LOANF1.FRX:9044 ScaleHeight = 4500 ScaleWidth = 9375 TabIndex = 1 Top = 480 Visible = 0 'False Width = 9405 Begin CheckBox Check1 Caption = "Leasehold" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 2 Left = 7980 TabIndex = 31 Top = 4140 Width = 1095 End Begin CheckBox Check1 Caption = "Fee Simple" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 1 Left = 7980 TabIndex = 30 Top = 3810 Width = 1185 End Begin Label LabelF Caption = " " FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 3 Left = 30 TabIndex = 29 Top = 4260 Width = 7695 End Begin Label LabelF Caption = " " FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 2 Left = 5295 TabIndex = 28 Top = 3720 Width = 2415 End Begin Label LabelF Caption = " " FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 1 Left = 45 TabIndex = 27 Top = 3720 Width = 5175 End Begin Label LabelE FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 5 Left = 6765 TabIndex = 26 Top = 3225 Width = 2565 End Begin Label LabelE FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 4 Left = 4530 TabIndex = 25 Top = 3225 Width = 1605 End Begin Label LabelE FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 3 Left = 3000 TabIndex = 24 Top = 3225 Width = 1455 End Begin Label LabelE FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 2 Left = 1260 TabIndex = 23 Top = 3195 Width = 1455 End Begin Label LabelE Alignment = 2 'Center FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 1 Left = 15 TabIndex = 22 Top = 3210 Width = 1035 End Begin Label LabelE FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 180 Index = 17 Left = 7260 TabIndex = 58 Top = 2940 Width = 1515 End Begin Label LabelD FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 6 Left = 7950 TabIndex = 21 Top = 2430 Width = 1395 End Begin Label LabelD FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 5 Left = 6240 TabIndex = 20 Top = 2430 Width = 1485 End Begin Label LabelD FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 4 Left = 4575 TabIndex = 19 Top = 2430 Width = 1425 End Begin Label LabelD FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 3 Left = 2940 TabIndex = 18 Top = 2430 Width = 1425 End Begin Label LabelD FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 2 Left = 1290 TabIndex = 17 Top = 2430 Width = 1425 End Begin Label LabelD Alignment = 2 'Center Caption = " " FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 1 Left = 30 TabIndex = 53 Top = 2415 Width = 1035 End Begin Label LabelC FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 5 Left = 6435 TabIndex = 63 Top = 1605 Width = 2895 End Begin Label LabelC Caption = " " FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 2 Left = 30 TabIndex = 52 Top = 1605 Width = 6315 End Begin Label LabelC Alignment = 2 'Center Caption = " " FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 4 Left = 8010 TabIndex = 16 Top = 1080 Width = 1335 End Begin Label LabelC Caption = " " FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 1 Left = 30 TabIndex = 15 Top = 1080 Width = 7875 End Begin Label LabelC Alignment = 2 'Center Caption = " " FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Index = 3 Left = 8010 TabIndex = 14 Top = 555 Width = 1335 End Begin Label LabelB FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 225 Left = 45 TabIndex = 64 Top = 540 Width = 7875 End End Begin CommandButton Command4 Caption = "Clear All" Height = 255 Left = 7320 TabIndex = 6 Top = 120 Width = 1335 End Begin CommandButton Command3 Caption = "Clear Page" Height = 255 Left = 5160 TabIndex = 5 Top = 120 Width = 1335 End Begin CommandButton Command2 Caption = "Next >" Height = 255 Left = 3000 TabIndex = 4 Top = 120 Width = 1335 End Begin CommandButton Command1 Caption = "< Previous" Enabled = 0 'False Height = 255 Left = 840 TabIndex = 3 Top = 120 Width = 1335 End Begin Menu MFile Caption = "File" Begin Menu MSave Caption = "&Save" End Begin Menu MLoad Caption = "&Load" End Begin Menu MPrint Caption = "&Print" End Begin Menu MExit Caption = "&Exit" End End Sub Check1_Click (Index As Integer) If (Form1.Visible = True) And (Form7.Visible = False) Then If Form1.Check1(Index).Value = 1 Then MainRec.F.FC1 = Index For i = 1 To 2 If i <> Index Then Form1.Check1(i).Value = 0 End If Next i End If End If If (Form1.Check1(1).Value = 0) And (Form1.Check1(2).Value = 0) Then MainRec.F.FC1 = 0 End If End Sub Sub Command1_Click () If Picture2.Visible = True Then Picture2.Visible = False Picture1.Visible = True Command1.Enabled = False ElseIf Picture3.Visible = True Then Picture3.Visible = False Picture2.Visible = True Command2.Enabled = True End If End Sub Sub Command2_Click () If Picture1.Visible = True Then Picture1.Visible = False Picture2.Visible = True Command1.Enabled = True ElseIf Picture2.Visible = True Then Picture2.Visible = False Picture3.Visible = True Command2.Enabled = False End If End Sub Sub Command3_Click () If Picture1.Visible = True Then ClearPict1 ElseIf Picture2.Visible = True Then ClearPict2 Else ClearPict3 End If End Sub Sub Command4_Click () ClearPict1 ClearPict2 ClearPict3 End Sub Sub Form_Load () MSP = Screen.MousePointer Screen.MousePointer = 11 Form2.Show Form1.WindowState = 2 Picture1.Visible = True Unload Form2 Screen.MousePointer = MSP End Sub Sub Form_Unload (Cancel As Integer) Call MExit_Click End Sub Sub Label3_Click (Index As Integer) UpdateDate (Index) End Sub Sub Label3_DblClick (Index As Integer) UpdateNewDate (Index) End Sub Sub Label4_DblClick (Index As Integer) If Index = 0 Then HEdit1.EraseInk = True Else HEdit2.EraseInk = True End If End Sub Sub LabelA_DblClick (Index As Integer) Load Form3 Call UpdateFormA Form3.Show 1 End Sub Sub LabelB_DblClick () AddressBox = 1 Form10.Picture5.Visible = False Call UpdateFormB Form10.Show 1 End Sub Sub LabelC_DblClick (Index As Integer) Call UpdateFormC Form4.Show 1 End Sub Sub LabelD_DblClick (Index As Integer) Call UpdateFormD Form5.Show 1 End Sub Sub LabelE_DblClick (Index As Integer) Call UpdateFormE Form6.Show 1 End Sub Sub LabelF_DblClick (Index As Integer) Call UpdateFormF Form7.Show 1 End Sub Sub LabelG_DblClick (Index As Integer) Call UpdateFormG Form8.Show 1 End Sub Sub LabelH_DblClick (Index As Integer) Call UpdateFormH Form9.Show 1 End Sub Sub LabelI_Click (Index As Integer) AddressBox = 2 Form10.Picture5.Visible = True Call UpdateFormI Form10.Show 1 End Sub Sub LabelJ_Click (Index As Integer) AddressBox = 3 Form10.Picture5.Visible = True Call UpdateFormJ Form10.Show 1 End Sub Sub MExit_Click () Unload Form1 Unload Form2 Unload Form3 Unload Form4 Unload Form5 Unload Form6 Unload Form7 Unload Form8 Unload Form9 Unload Form10 End Sub Sub MLoad_Click () MSP = Screen.MousePointer Screen.MousePointer = 11 Open "SaveFile.Txt" For Random As #1 Len = Len(MainRec) Get #1, , MainRec Close #1 Call UpdateFormA Call UpdateFormB Call UpdateFormC Call UpdateFormD Call UpdateFormE Call UpdateFormF Call UpdateFormG Call UpdateFormH Call UpdateFormI Call UpdateFormJ Call UpdateLabelA Call UpdateLabelB Call UpdateLabelC Call UpdateLabelD Call UpdateLabelE Call UpdateLabelF Call UpdateLabelG Call UpdateLabelH Call UpdateLabelI Call UpdateLabelJ Call UpdateDate(1) Call UpdateDate(2) Screen.MousePointer = MSP End Sub Sub MPrint_Click () Msg$ = "Here is where you would add code to print" + Chr$(10) + Chr$(13) Msg$ = Msg$ + "all the screens. The screens can be" + Chr$(10) + Chr$(13) Msg$ = Msg$ + "captured with an API call 'BitBlt' and" + Chr$(10) + Chr$(13) Msg$ = Msg$ + "added together as they are printed to" + Chr$(10) + Chr$(13) Msg$ = Msg$ + "the printer." MsgBox Msg$, 64, "Additional feature to be added." End Sub Sub MSave_Click () MSP = Screen.MousePointer Screen.MousePointer = 11 Open "SaveFile.Txt" For Random As #1 Len = Len(MainRec) Put #1, , MainRec Close #1 Screen.MousePointer = MSP End Sub