'Language: VisualBasic 6.0
'Author: Alex Karlov
'Created Date: 02/06/2003
'Last Modified Date: 02/10/2003
'Version: 1.1.0


Private Sub Command1_Click()
If Not Text1.Text = "" Then
    If Option1 = True Then
        Text2.Text = Text1.Text * 9 / 5 + 32
    End If
    If Option2 = True Then
        Text2.Text = (Text1.Text - 32) * 5 / 9
    End If
    If Option3 = True Then
        Text2.Text = Text1.Text + 273
    End If
    If Option4 = True Then
        Text2.Text = Text1.Text - 273
    End If
    If Option5 = True Then
        Text2.Text = ((Text1.Text - 32) * 5 / 9) + 273
    End If
    If Option6 = True Then
        Text2.Text = (Text1.Text - 273) * (9 / 5 + 32)
    End If
End If
End Sub

Private Sub Command3_Click()
    frmAbout.Visible = True
End Sub

Private Sub Command2_Click()
    End
End Sub

Private Sub Command4_Click()
    Text1.Text = ""
    Text2.Text = ""
End Sub