Код: Выделить всё
.
Private Sub Command1_Click()
Beep
End
End Sub
Private Sub Text1_Change()
End Sub
Private Sub HSBspeed_Change()
txtspeed.Text = Str(HSBspeed. "Здесь хочу набрать Value но он не присутствует в списке") + km / h
End Sub
Private Sub HScroll1_Change()
HSBspeed_Change
End Sub