Option Explicit
Dim temp As Integer
Private Sub Command1_Click()
temp = Val(Text1.Text)
Dim F As Integer
F = temp * 9 / 5 + 32
Label1.Caption = "Temp in F is "& F
End Sub
Private Sub Command2_Click()
temp = Val(Text1.Text)
Dim C As Integer
C = (temp - 32) * 5 / 9
Label1.Caption = "Temp in C is "& C
End Sub
Private Sub Text1_Click()
Text1.Text = ""
End Sub