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 / LOANF6.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1993-07-22 | 9.9 KB | 315 lines

VERSION 2.00 Begin Form Form6 BackColor = &H00808080& ClientHeight = 2655 ClientLeft = 315 ClientTop = 1515 ClientWidth = 8880 ControlBox = 0 'False Height = 3060 Left = 255 LinkMode = 1 'Source LinkTopic = "Form6" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 2655 ScaleWidth = 8880 Top = 1170 Width = 9000 Begin CommandButton Command3 Caption = "Cancel" Height = 300 Left = 4995 TabIndex = 17 Top = 2160 Width = 3000 End Begin CommandButton Command1 Caption = "Ok" Height = 300 Left = 885 TabIndex = 16 Top = 2160 Width = 3000 End Begin PictureBox Picture5 Height = 900 Left = 5100 ScaleHeight = 870 ScaleWidth = 3705 TabIndex = 4 Top = 1035 Width = 3735 Begin VBedit BEditF6 CellHeight = 480 CellWidth = 360 CharSet = 16652 CombBaseLine = 390 CombEndHeight = 120 CombEndMarker = 0 'False CombHeight = 60 FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 495 Index = 5 InflateBottom = 180 InflateLeft = 180 InflateRight = 180 InflateTop = 240 Left = 1050 TabIndex = 11 Top = 330 Version = 268435458 Width = 2190 End Begin Label Label6 Caption = "Cost:" Height = 225 Left = 330 TabIndex = 10 Top = 555 Width = 465 End Begin Label Label9 Caption = "$" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 300 Left = 885 TabIndex = 20 Top = 495 Width = 180 End Begin Label Label5 Caption = "Improvement(s):" Height = 240 Left = 30 TabIndex = 9 Top = 45 Width = 1440 End End Begin PictureBox Picture4 Height = 900 Left = 15 ScaleHeight = 870 ScaleWidth = 4950 TabIndex = 3 Top = 1035 Width = 4980 Begin VBedit BEditF6 CellHeight = 480 CellWidth = 360 CombBaseLine = 390 CombEndHeight = 120 CombEndMarker = 0 'False CombHeight = 60 FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 495 Index = 4 InflateBottom = 180 InflateLeft = 180 InflateRight = 180 InflateTop = 240 Left = 45 TabIndex = 15 Top = 330 Version = 268435458 Width = 4860 End Begin Label Label4 Caption = "Purpose of Refinance:" Height = 225 Left = 45 TabIndex = 8 Top = 45 Width = 1980 End End Begin PictureBox Picture3 Height = 900 Left = 5460 ScaleHeight = 870 ScaleWidth = 3345 TabIndex = 2 Top = 60 Width = 3375 Begin VBedit BEditF6 CellHeight = 480 CellWidth = 360 CharSet = 16652 CombBaseLine = 390 CombEndHeight = 120 CombEndMarker = 0 'False CombHeight = 60 FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 495 Index = 3 InflateBottom = 180 InflateLeft = 180 InflateRight = 180 InflateTop = 240 Left = 285 TabIndex = 14 Top = 330 Version = 268435458 Width = 2955 End Begin Label Label8 Caption = "$" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 285 Left = 120 TabIndex = 19 Top = 495 Width = 180 End Begin Label Label3 Caption = "Amount of Existing Leins:" Height = 225 Left = 45 TabIndex = 7 Top = 45 Width = 2220 End End Begin PictureBox Picture2 Height = 900 Left = 2010 ScaleHeight = 870 ScaleWidth = 3345 TabIndex = 1 Top = 60 Width = 3375 Begin VBedit BEditF6 CellHeight = 480 CellWidth = 360 CharSet = 16652 CombBaseLine = 390 CombEndHeight = 120 CombEndMarker = 0 'False CombHeight = 60 FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 495 Index = 2 InflateBottom = 180 InflateLeft = 180 InflateRight = 180 InflateTop = 240 Left = 255 TabIndex = 13 Top = 330 Version = 268435458 Width = 2955 End Begin Label Label7 Caption = "$" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 300 Left = 120 TabIndex = 18 Top = 495 Width = 165 End Begin Label Label2 Caption = "Original Cost:" Height = 225 Left = 45 TabIndex = 6 Top = 45 Width = 1215 End End Begin PictureBox Picture1 Height = 900 Left = 30 ScaleHeight = 870 ScaleWidth = 1875 TabIndex = 0 Top = 60 Width = 1905 Begin VBedit BEditF6 CellHeight = 480 CellWidth = 360 CharSet = 16652 CombBaseLine = 390 CombEndHeight = 120 CombEndMarker = 0 'False CombHeight = 60 FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 495 Index = 1 InflateBottom = 180 InflateLeft = 180 InflateRight = 180 InflateTop = 240 Left = 45 TabIndex = 12 Top = 330 Version = 268435458 Width = 1785 End Begin Label Label1 Caption = "Year Acquired:" Height = 225 Left = 45 TabIndex = 5 Top = 45 Width = 1380 End End Sub Command1_Click () MainRec.E.E1 = Form6.BEditF6(1).Text MainRec.E.E2 = Form6.BEditF6(2).Text MainRec.E.E3 = Form6.BEditF6(3).Text MainRec.E.E4 = Form6.BEditF6(4).Text MainRec.E.E5 = Form6.BEditF6(5).Text UpdateLabelE Form6.Hide End Sub Sub Command3_Click () Form6.Hide End Sub Sub Form_Load () Form6.Left = 300 Form6.Top = (Screen.Height - Form6.Height) / 2 End Sub