ball toss

Public Class Form1
    Dim dbltxtInitialHeight As Double = 0
    Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
        Dim dbltxtInitialHeight As Double = 0
        Dim dbltxtInitialVelocity As Double = 0
        Dim dbltxtTime As Double = 0
        dbltxtTime = CDbl(txtTime.Text)
        dbltxtInitialVelocity = CDbl(txtInitialVelocity.Text)
        lblMeters.Text = CType(dbltxtInitialHeight + dbltxtInitialVelocity * dbltxtTime + 0.5 * -9.80665 * 2.25, String)











    End Sub

    Private Sub btnConvert_Click(sender As Object, e As EventArgs) Handles btnConvert.Click
        lblFeet.Text = CType(CDbl(lblMeters.Text) * 3.28084, String)