Private Sub Command1_Click()

        txttemp = (9 * Val(txttemp) / 5) + 32

End Sub

Private Sub Command2_Click()

        txttemp = (Val(txttemp) - 32) * 5 / 9

End Sub

Back to vb6 exercises