Public Class txtloan

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblLoan.Click

    End Sub

    Private Sub btnCount_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCount.Click

        Const rate As Double = 0.037
        Dim loan, installment As Double
        Dim year As Integer
        Dim title, prompt As String


        loan = CDbl(txtloann.Text)

        year = CDbl(txtYear.Text)

        installment = ((loan + (loan * rate)) / (year * 12))

        title = "Loan Details"

        prompt = "Loan : " & FormatCurrency(loan) & vbCrLf & "Year : " & year & vbCrLf & "Installment : " & FormatCurrency(installment)

        MessageBox.Show(prompt, title)

    End Sub

    Private Sub loan_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.TextChanged

    End Sub

    Private Sub txtloann_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtloann.TextChanged

    End Sub
End Class

'Coded By th3phantom