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

Wrap

Visual Basic Form | 1993-07-22 | 14.6 KB | 462 lines

VERSION 2.00 Begin Form Form3 BackColor = &H00808080& ClientHeight = 5040 ClientLeft = 255 ClientTop = 1725 ClientWidth = 8880 ControlBox = 0 'False Height = 5445 Left = 195 LinkMode = 1 'Source LinkTopic = "Form3" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 5040 ScaleWidth = 8880 Top = 1380 Width = 9000 Begin CommandButton Command3 Caption = "Cancel" Height = 300 Left = 4995 TabIndex = 19 Top = 4470 Width = 3000 End Begin CommandButton Command1 Caption = "OK" Height = 300 Left = 885 TabIndex = 18 Top = 4455 Width = 3000 End Begin PictureBox Picture7 Height = 1185 Left = 45 ScaleHeight = 1155 ScaleWidth = 8760 TabIndex = 20 Top = 3000 Width = 8790 Begin CheckBox Check1 Caption = "ARM:" Height = 240 Index = 4 Left = 3120 TabIndex = 25 Top = 795 Width = 795 End Begin CheckBox Check1 Caption = "GPM" Height = 240 Index = 2 Left = 1755 TabIndex = 23 Top = 765 Width = 1080 End Begin VBedit BEditF3 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 = 8 InflateBottom = 180 InflateLeft = 180 InflateRight = 180 InflateTop = 240 Left = 3945 TabIndex = 27 Top = 615 Version = 268435458 Width = 4770 End Begin CheckBox Check1 Caption = "Other:" Height = 240 Index = 3 Left = 3120 TabIndex = 24 Top = 225 Width = 840 End Begin CheckBox Check1 Caption = "Fixed Rate" Height = 240 Index = 1 Left = 1755 TabIndex = 22 Top = 225 Width = 1275 End Begin VBedit BEditF3 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 = 7 InflateBottom = 180 InflateLeft = 180 InflateRight = 180 InflateTop = 240 Left = 3945 TabIndex = 26 Top = 45 Version = 268435458 Width = 4770 End Begin Label Label7 Caption = "Amortizaties Type:" Height = 240 Left = 45 TabIndex = 21 Top = 45 Width = 1665 End End Begin PictureBox Picture2 Height = 900 Left = 6945 ScaleHeight = 870 ScaleWidth = 1860 TabIndex = 1 Top = 2010 Width = 1890 Begin VBedit BEditF3 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 = 6 InflateBottom = 180 InflateLeft = 180 InflateRight = 180 InflateTop = 240 Left = 45 TabIndex = 17 Top = 330 Version = 268435458 Width = 1770 End Begin Label Label6 Caption = "Number of Months:" Height = 210 Left = 45 TabIndex = 16 Top = 45 Width = 1665 End End Begin PictureBox Picture3 Height = 900 Left = 4995 ScaleHeight = 870 ScaleWidth = 1845 TabIndex = 2 Top = 2010 Width = 1875 Begin VBedit BEditF3 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 = 45 TabIndex = 15 Top = 330 Version = 268435458 Width = 1485 End Begin Label Label8 Caption = "%" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 240 Left = 1575 TabIndex = 28 Top = 540 Width = 255 End Begin Label Label5 Caption = "Interent Rate:" Height = 225 Left = 45 TabIndex = 14 Top = 45 Width = 1245 End End Begin PictureBox Picture4 Height = 900 Left = 45 ScaleHeight = 870 ScaleWidth = 3810 TabIndex = 3 Top = 2010 Width = 3840 Begin VBedit BEditF3 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 = 4 InflateBottom = 180 InflateLeft = 180 InflateRight = 180 InflateTop = 240 Left = 330 TabIndex = 13 Top = 345 Version = 268435458 Width = 3315 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 = 150 TabIndex = 29 Top = 480 Width = 180 End Begin Label Label4 Caption = "Amount of Loan:" Height = 210 Left = 45 TabIndex = 12 Top = 45 Width = 1950 End End Begin PictureBox Picture5 Height = 900 Left = 4995 ScaleHeight = 870 ScaleWidth = 3810 TabIndex = 4 Top = 1035 Width = 3840 Begin VBedit BEditF3 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 = 45 TabIndex = 11 Top = 330 Version = 268435458 Width = 3735 End Begin Label Label3 Caption = "Lender Case Number:" Height = 225 Left = 30 TabIndex = 10 Top = 45 Width = 1920 End End Begin PictureBox Picture6 Height = 900 Left = 45 ScaleHeight = 870 ScaleWidth = 3810 TabIndex = 5 Top = 1035 Width = 3840 Begin VBedit BEditF3 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 = 30 TabIndex = 9 Top = 330 Version = 268435458 Width = 3750 End Begin Label Label2 Caption = "Agency Case Number:" Height = 225 Left = 45 TabIndex = 8 Top = 45 Width = 1950 End End Begin PictureBox Picture1 Height = 900 Left = 45 ScaleHeight = 870 ScaleWidth = 8760 TabIndex = 0 Top = 60 Width = 8790 Begin VBedit BEditF3 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 = 1 InflateBottom = 180 InflateLeft = 180 InflateRight = 180 InflateTop = 240 Left = 45 TabIndex = 7 Top = 360 Version = 268435458 Width = 8670 End Begin Label Label1 Caption = "Morgtage Applied for:" Height = 255 Left = 45 TabIndex = 6 Top = 45 Width = 1875 End End Sub Check1_Click (Index As Integer) If Form3.Visible = True Then If Check1(Index).Value = 1 Then For i = 1 To 4 If Index <> i Then Check1(i).Value = 0 End If Next i ElseIf ((Index = 3) Or (Index = 4)) Then Form3.BEditF3(Index + 4).Text = "" MainRec.A.A7 = "" End If End If End Sub Sub Command1_Click () MainRec.A.A1 = Form3.BEditF3(1).Text MainRec.A.A2 = Form3.BEditF3(2).Text MainRec.A.A3 = Form3.BEditF3(3).Text MainRec.A.A4 = Form3.BEditF3(4).Text MainRec.A.A5 = Form3.BEditF3(5).Text MainRec.A.A6 = Form3.BEditF3(6).Text For i = 1 To 4 If Form3.Check1(i).Value = 1 Then MainRec.A.AC1 = i End If Next i If (MainRec.A.AC1 = 3) Or (MainRec.A.AC1 = 4) Then MainRec.A.A7 = Form3.BEditF3(MainRec.A.AC1 + 4).Text End If UpdateLabelA Form3.Hide End Sub Sub Command3_Click () Form3.Hide End Sub Sub Form_Load () Form3.Left = 300 Form3.Top = (Screen.Height - Form3.Height) / 2 End Sub