Ayuda Novato

[XilFe]

VALLA QUE SI FUNCIONAAAAAAAA!!!!
jejejej muchisimas gracias!!!

Ahora a quedado a si

Private Sub HScrollPin_Change()
txtPin.text = HScrollPin.Value
txtRD.text = Val(HScrollCor.Value) / Val(HScrollPin.Value)
End Sub
Private Sub HScrollCor_Change()
txtCor.text = HScrollCor.Value
txtRD.text = Val(HScrollCor.Value) / Val(HScrollPin.Value)
End Sub
Private Sub HScrollSelVel_Change()
txtVel.text = HScrollSelVel.Value
Select Case HScrollSelVel.Value
Case 1:
txtRDVel.text = (75 / 19) * (33 / 17) * CDbl(txtRD.text)
Case 2:
txtRDVel.text = (75 / 19) * (29 / 16) * CDbl(txtRD.text)
Case 3:
txtRDVel.text = (75 / 19) * (27 / 18) * CDbl(txtRD.text)
Case 4:
txtRDVel.text = (75 / 19) * (27 / 22) * CDbl(txtRD.text)
Case 5:
txtRDVel.text = (75 / 19) * (23 / 22) * CDbl(txtRD.text)
Case 6:
txtRDVel.text = (75 / 19) * (25 / 27) * CDbl(txtRD.text)
End Select
txtKMh.text = (Val(HScrollRPM.Value) * 60) / (CDbl(txtRDVel.text) / 0.88) / 1000
End Sub
Private Sub HScrollRPM_Change()
txtRPM.text = Val(HScrollRPM.Value)
txtKMh.text = (Val(HScrollRPM.Value) * 60) / (CDbl(txtRDVel.text) / 0.88) / 1000
End Sub
Private Sub Exit_Click()
End
End Sub

Me falta aun darle unos pequeños retoques, color (esto es facil) que el programa al ejecutarse reproduzca un mp3 (creo que tambien es facil), que me establezca por defecto unos valores predeterminados en todos los textbox para que no se tenga que empezar de arriba abajo, pues ahora si empiezas poniendo las Revoluciones da error (esto ya no lo veo tan facil)
una casilla de verificacion para anular el mp3, por si a la gente le molesta (creo que es facil) que en el textbox de los KM/h solo me salga el entero y dos decimales por ejemplo 130,20 y no 130.205487478 que queda muy feo y por supuesto ponerle un mensage al salir del programa con agradecimientos a la gente como tu que me ayuda a crear estas cosillas para que otra gente las disfrute totalmente gratis, pues esto lo hago por Hobby y no pa sacar dinero.

Esto que te comente lo voy a intentar hacer el fin de semana por mi cuenta, leyendo los manuales que tengo, a ver si lo consigo, ya te contare.
Si no pues tendre que pedirte ayuda

De verdad Muchas Gracias!!!!