Crea un HScroll llamado HScrollVel y cambias el codigo de los 6 botones por:
Código :
Ver originalPrivate Sub HScrollVel_Change()
txtVel.text = Cstr(HScrollVel.Value)
Select Case HScrollVel.Value
Case 1:
txtRDVel.text = (75 / 19) * (33 / 17) * CDbl(txtRD.text)
txtKMh.text = (Val(HScrollRPM.Value) * 60) / (CDbl(txtRDVel.text) / 0.88) / 1000
Case 2:
txtRDVel.text = (75 / 19) * (29 / 16) * CDbl(txtRD.text)
txtKMh.text = (Val(HScrollRPM.Value) * 60) / (CDbl(txtRDVel.text) / 0.88) / 1000
Case 3:
txtRDVel.text = (75 / 19) * (27 / 18) * CDbl(txtRD.text)
txtKMh.text = (Val(HScrollRPM.Value) * 60) / (CDbl(txtRDVel.text) / 0.88) / 1000
Case 4:
txtRDVel.text = (75 / 19) * (27 / 22) * CDbl(txtRD.text)
txtKMh.text = (Val(HScrollRPM.Value) * 60) / (CDbl(txtRDVel.text) / 0.88) / 1000
Case 5:
txtRDVel.text = (75 / 19) * (23 / 22) * CDbl(txtRD.text)
txtKMh.text = (Val(HScrollRPM.Value) * 60) / (CDbl(txtRDVel.text) / 0.88) / 1000
Case 6:
txtRDVel.text = (75 / 19) * (25 / 27) * CDbl(txtRD.text)
txtKMh.text = (Val(HScrollRPM.Value) * 60) / (CDbl(txtRDVel.text) / 0.88) / 1000
End Select
End Sub