Posts by funrunner

I changed your code to this and added some labels to the form to display the results:

Imports System.convert

Public Class Form1
    Inherits System.Windows.Forms.Form

    Private mlblInitialValue As Double
    Private mlblSalvageValue As Double
    Private mlblAssetLife As Single

    Private mdblTotalDepreciation As Double
    Private mdblAnnualDepreciation As Double

    Private Const cintCol1Start As Integer = 100
    Private Const cintCol2Start As Integer = 250
    Private Const cintCol3Start As Integer = 400
    Private Const cintCol4Start As Integer = 550
    Private Const cintColWidth As Integer = 150

    Private mfntPrint As Font
    Private msngFontHeight As Single
    Private msngYPos As Single
    'Private mfnrPrint As Font(/code) 

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

    End Sub

    Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
        mlblInitialValue = (txtInitialValue.Text)
        mlblSalvageValue = (txtSalvageLife.Text)
        mlblAssetLife = (txtSalvageLife.Text)

        mdblTotalDepreciation = mlblInitialValue - mlblSalvageValue
        mdblAnnualDepreciation = mdblTotalDepreciation / mlblSalvageValue

        Me.lblTotalDeprec.Text = mdblTotalDepreciation.ToString
        Me.lblAnnualDeprec.Text = mdblAnnualDepreciation.ToString

    End Sub
End Class