Public Class Form1
 
 
    Private Sub TextBox1_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.MouseHover
        ToolTip1.SetToolTip(TextBox1, "Cash Flow")
    End Sub
    Private Sub TextBox2_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.MouseHover
        ToolTip1.SetToolTip(TextBox2, "Account Balance")
    End Sub
 
 
    Private Sub TextBox1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown
        TextBox1.Clear()
    End Sub
 
    Private Sub TextBox2_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox2.MouseDown
        TextBox2.Clear()
    End Sub
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        'these variable need to plug into an equation
        dim name as string
        Dim current As Decimal
        Dim toBuy As Integer
        Dim startPrice As Decimal
        Dim newPrice As Decimal
        Dim totalNeed As Decimal
        Dim quantity As Integer
        Dim subNeed As Decimal
        Dim account As Decimal
        Dim flow As Decimal
        Dim hours As Decimal
 
        'this is the equation
        newPrice = current + (toBuy) * (0.1 * startPrice)
 
        totalNeed = newPrice * quantity
 
        subNeed = totalNeed - account
 
        hours = subNeed / flow
 
        MsgBox("it will take you " & hours & " hours to save up for " & quantity & name & "'s. ")
    End Sub
End Class