Temperatura

Este trabajo se realizo con la siguiente programacion:

Private Sub Command1_Click()

Beep

End

End Sub

Private Sub VScroll1_Change()

Text1.Text = VScroll1.Value

Text2.Text = 32 + 1.8 * VScroll1.Value

End Sub