Μετατροπή βαθμών κελσίου σε φαρενάιτ και το ανάποδο με τη Visual Basic

- Δίνονται οι βαθμοί κελσίου σε ένα πλαίσιο κειμένου που έχει δίπλα ετικέτα "Βαθμοί κελσίου".
- Με το πάτημα ενός κουμπιού που γράφει "Μετατροπή σε φαρενάιτ" να εμφανίζονται σε ένα δεύτερο πλαίσιο κειμένου που έχει δίπλα ετικέτα "Βαθμοί φαρενάιτ" οι βαθμοί σε φαρενάιτ.
- Με το πάτημα ένος δεύτερου κουμπιού που γράφει "Μετατροπή σε κελσίου" να εμφανίζονται στο πρώτο πλαίσιο κειμένου (Βαθμοί κελσίου) οι βαθμοί κελσίου.
-Οι τύποι μετατροπής είναι F=(9*C)/5+32 και C= 5*(F-32)/9

Μπορείτε να κάνετε το ίδιο πρόγραμμα χωρίς κουμπιά; (Βοήθεια: Με το συμβάν text change)
Πηγή: wikipedia

Ο κώδικας στο κουμπί "Μετατροπή σε Φαρενάιτ" είναι:

Dim f As Single

Dim c As Single
c = Text1
f = 9 * c / 5 + 32
Text2 = f

Ο κώδικας στο κουμπί "Μετατροπή σε κελσίου" είναι:

Dim f As Single

Dim c As Single
f = Text2
c = 5 * (f - 32) / 9
Text1 = c

Τέλος, αν δε θέλουμε να χρησιμοποιήσουμε κουμπια, στο TextBox Text1 γράφουμε στο Text1_change:

Dim f As Single

Dim c As Single
c = Text1
f = 9 * c / 5 + 32
Text2 = f

και στο TextBox Text2 γράφουμε στο Text2_change:

Dim f As Single

Dim c As Single
f = Text2
c = 5 * (f - 32) / 9
Text1 = c