Termometro en VB 6.0

Un bonito termometro en visual basic, este codigo muy sencillo y no muy utilizable, pero aun asi, utilizaremos este control y pasaremos a otras cosas:

CODIGO:
Private Sub barra1_Change()

             celsius.Text = barra1.Value
             faren.Text = Format((Val(celsius.Text) * 1.8) + 32, "#0.0")
End Sub

el codigo del boton salir os lo dejo que lo adivineis vosotros, que seguro que ya os lo sabeis developers que estais hechos unos developers.