Please past the extra code I need to finish the project. The last image is what I have so far. I need my program to look

[answerhappygod]

Please Past The Extra Code I Need To Finish The Project The Last Image Is What I Have So Far I Need My Program To Look 1 (190.68 KiB) Viewed 36 times

Write a program to convert a U.S. Customary Systen length in miles, yards, feet, and inches to a Metric System length in kilometers, meters, and centimeters. A Sample run is shown below. After the number of miles, yards, feet, and inches are read from the text boxes, the length should be converted entirely to inches and then divided by 39.37 to obtain the value in meters. The Int function should be used to break the total number of meters into a whole number of kilometers and meters. The number of centimeters should be displayed to one decimal place. Use the naming convention provided for all controls on the form and all variables used. The needed formulas are as follows: dblTotal inches (63360 intMiles) (36 intYards) (12 intFeet) + intInches. dblTotal meters dblTotal_inches / 39.37 intKilometers Int (dblTotal meters/1000) Shown at Start up: Project 1: Length Conversion Miles Yards Feet Inches 0 Project 1: Length Conversion Miles Yards Feet Inches In n Shown after entering data and clicking on button: 20 Convert To Metric 4 Convert To Metric End Sub The Metto Length is 8 kilometers. 65 meters 73.5 centimeters 'Input the data from user intMiles TxtMiles. Text intYards TxtVards. Text End Class Private Sub BtnCalculate_Click(sender As Object, e As EventArgs) Handles BtnCalculate. Click 'Calculate the Metric Values On Error Resume Next Din intMiles As Integer Din intYards As Integer Din intFeet As Integer Din intInches As Integer Din dblTotal Meters As Double Din dblMeters As Double Din dblCentimeters As Double Din intKilometers As Din intMeters As Int. Integer Din intTotal Inches As Integer intFeet = TxtFeet.Text intInches = TxtInches. Text Ox -OX 'Process the data intTotal Inches = (63360 intMiles) + (36 intYards) + (12 intFeet)+ intInches dblTotal Meters: = intTotal_Inches / intkilometers 'Calculate total meters dblMeters = dblTotal Meters (intKilometers 1000) "user input data "user input data 'user input data 'user input data 'calculated 'calculated 'calculated 'calculated 'calculated 'calculated 'Calculate MM part of dblMeters setting intMeters 'Calculate .CCxxxx part of dblMeters setting dblCentimeters *Multiply dblCentimeters by 188 to get cc.XXXXXXXX / 39.37 Int(dblTotal Meters / 1000) 'Dutput the data LstOut.Items.Clear() LstOut.Items.Add("The metric length is") LstOut.Items.Add("Kilometers: " & intKilometers) LstOut.Items.Add("Meters: " & intMeters) LstOut.Items.Add("Centimeters: " & Math. Round(dblCentimeters, 1))