Sub Command1_Click ()
    Unload Form1
End Sub

Sub txtDegC_KeyPress (KeyAscii As Integer)
    If (KeyAscii = 13) Then
        txtDegF.Text = 9 / 5 * Val(txtDegC.Text) + 32
    End If
End Sub

Sub txtDegF_KeyPress (KeyAscii As Integer)
    If (KeyAscii = 13) Then
        txtDegC.Text = (5 / 9) * Val(txtDegF.Text - 32)
    End If
End Sub

