Paso 2: Obtener el código básico
Paso 12: Inserte el código siguiente:
'This will close the application' Me.Close()
Paso 13: Haga doble clic en el 'ConvertButton'. Esto hará que nuevos Private Sub que se activará cuando se hace clic en el botón.
Paso 14: Inserte el código siguiente:
'These are the Boolean for the Length in the first box' Dim Mile1 As Boolean Dim KM1 As Boolean Dim M1 As Boolean Dim CM1 As Boolean 'These are the Boolean for the length in the second box' Dim Mile2 As Boolean Dim KM2 As Boolean Dim M2 As Boolean Dim CM2 As Boolean 'These are the inserted numbers that will be converted' Dim Num1 As String Num1 = UnitText1.Text Dim Num1 As String Num2 = UnitText2.Text
