Program Konverter Suhu Aplikasi Visual Basic

-->

Private Sub Command1_Click()

Text2.Text = Text1.Text * 0.8

Text3.Text = (Text1.Text * 1.8) + 32

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text1.SetFocus

End Sub