Ayuda Novato

[XilFe]

Ahora te comento que voy a probarlo.
de momento con los botones va perfecto!
el codigo es este

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 HScrollRPM_Change()
txtRPM.text = Val(HScrollRPM.Value)
txtKMh.text = (Val(HScrollRPM.Value) * 60) / (CDbl(txtRDVel.text) / 0.88) / 1000
End Sub
Private Sub Vel1_Click()
txtRDVel.text = (75 / 19) * (33 / 17) * CDbl(txtRD.text)
txtKMh.text = (Val(HScrollRPM.Value) * 60) / (CDbl(txtRDVel.text) / 0.88) / 1000
txtVel.text = 1
End Sub
Private Sub Vel2_Click()
txtRDVel.text = (75 / 19) * (29 / 16) * CDbl(txtRD.text)
txtKMh.text = (Val(HScrollRPM.Value) * 60) / (CDbl(txtRDVel.text) / 0.88) / 1000
txtVel.text = 2
End Sub
Private Sub Vel3_Click()
txtRDVel.text = (75 / 19) * (27 / 18) * CDbl(txtRD.text)
txtKMh.text = (Val(HScrollRPM.Value) * 60) / (CDbl(txtRDVel.text) / 0.88) / 1000
txtVel.text = 3
End Sub
Private Sub Vel4_Click()
txtRDVel.text = (75 / 19) * (27 / 22) * CDbl(txtRD.text)
txtKMh.text = (Val(HScrollRPM.Value) * 60) / (CDbl(txtRDVel.text) / 0.88) / 1000
txtVel.text = 4
End Sub
Private Sub Vel5_Click()
txtRDVel.text = (75 / 19) * (23 / 22) * CDbl(txtRD.text)
txtKMh.text = (Val(HScrollRPM.Value) * 60) / (CDbl(txtRDVel.text) / 0.88) / 1000
txtVel.text = 5
End Sub
Private Sub Vel6_Click()
txtRDVel.text = (75 / 19) * (25 / 27) * CDbl(txtRD.text)
txtKMh.text = (Val(HScrollRPM.Value) * 60) / (CDbl(txtRDVel.text) / 0.88) / 1000
txtVel.text = 6
End Sub
Private Sub Exit_Click()
End
End Sub

Hasta ahora!