Program to convert temperature from centigrade to Fahrenheit using vertical scroll bar which is scrolling automatically on every interval of timer control.

Dim i As Boolean
Private Sub Form_Load()
t = False
End Sub
Private Sub Timer1_Timer()
If VScroll1.Value <= 40 Then
t = False
End If
VScroll1.Value = VScroll1.Value + 1
If VScroll1.Value >= 100 Then
t = True
End If
If t = True Then
VScroll1.Value = VScroll1.Value - 2
End If
End Sub

Private Sub VScroll1_Change()
Text1.Text = VScroll1.Value & "C"
Text2.Text = ((9 * VScroll1.Value) + 100) / 5 & "F"
End Sub