Visual Basic

Private Sub frmAmort_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ' Used as the index for the for loop
        Dim i As Int32

 
        ' We will be resetting the balance as payments are made so we need a starting balance
        Dim dBalance As Double = dPrincipal_g
        Dim dInterestPaid As Double
        Dim dPrincipalPaid As Double = dPayment_g - dInterestPaid
        Dim loops As Integer = 0

        lblHeading.Text = "Pmnt#        Balance                     Interest Paid  Principal Paid"

        ' Loop for every payment
       
        For i = 1 To iMonths_g
            ' Calculate the amount of interest paid for that month
            dInterestPaid = Math.Round(((dBalance * dInterestRate_g)), 2)
            ' Calculate the balance after the payment for that month
            dBalance = dBalance - dPayment_g + dInterestPaid


            ' Calculate the amount of principal paid for that month
            dPrincipalPaid = dPayment_g - dInterestPaid


            loops += 1
            ' Display the amounts in the listbox
            If dBalance > 0 Then

                lstAmort.Items.Add(i & Chr(9) & FormatCurrency(CDec(dBalance)) & Chr(9) & _
                                   FormatCurrency(dInterestPaid) & Chr(9) & FormatCurrency((dPrincipalPaid)))

            Else
                ' If the number is too small, it will not tab properly so add an extra tab.
                lstAmort.Items.Add(i & Chr(9) & FormatCurrency(CDec(dBalance)) & Chr(9) & Chr(9) & _
                                   FormatCurrency(dInterestPaid) & Chr(9) & FormatCurrency(dPrincipalPaid))
            End If

            ' Cause the form to display the values without waiting until control
            ' is returned to the form (process all messages in the queue).
            Application.DoEvents()


            'If we have displayed 36 months of data, then pause
            If (loops = 36) Then

                'pause the display 2 seconds (2000 milliseconds)
                Threading.Thread.Sleep(2000)

                ' reset the loop counter
                loops = 0

            End If

            lstAmort.SelectedIndex = i - 1
        Next

    End Sub

   Private Sub btnCloseAmort_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCloseAmort.Click
        Me.Close()
        frmMain.Show()
    End Sub

Public Sub DisplayImage(ByVal PicFile As FileInfo)
    Dim width As Integer = (2048 / 10)
    Dim height As Integer = (1536 / 10)
    Dim stride As Integer = (4 * 2048)
    Dim format As PixelFormat = PixelFormat.Canonical
    Dim scan0 As IntPtr

    Dim DPXBitmap As New Bitmap(width, height, stride, format, scan0)
    PictureBox1.Image = DPXBitmap
End Sub

Dim ft As FileStream
ft = New FileStream(PicFile.FullName, FileMode.Open)
ft.Position = 8192
Dim DPXBitmap As New Bitmap(ft)
PictureBox1.Image = DPXBitmap
ft.Close()