CASE SELECT
Private Sub Form_Load()
Text1.Text = a
Text2.Text = b
End Sub
Private Sub Text1_Change()
Dim ntemp As Integer ntemp = Val(Text1.Text)
Select Case ntemp
Case Is < 0
Text2.Text = "ICE"
Case Is = 0, Is < 100
Text2.Text = "WATER"
Case Is > 100
Text2.Text = "STEAM"
End Select
End Sub

IF THEN ELSE
Private Sub Form_Load()
Text1.Text = nText1
Text2.Text = ntext2
End Sub
Private Sub Text1_Change()
Dim Ntemp As Integer
Ntemp = Val(Text1.Text)
If Ntemp < 0 Then
Text2.Text = "ICE"
ElseIf Ntemp >= 0 And Ntemp <= 100 Then
Text2.Text = "WATER"
ElseIf Ntemp > 100 Then
Text2.Text = "STEAM"
End If
End Sub

PRACTICE
Private initialval As Integer
Const condeluxe = 180, conspecial = 250, conprimo = 290

Private Sub Form_Load()
Text1.Text = noval1
Text2.Text = noval2
Text3.Text = noval3
Option1 = False
Option2 = False
Option3 = False
End Sub

Private Sub Option1_Click()
Check1.Value = 1
Check2.Value = 0
Check3.Value = 1
Check4.Value = 0
Check5.Value = 1
Check6.Value = 0
Check7.Value = 0
Text1.Text = Str(condeluxe)
Text2.Text = initialval
Text3.Text = initialval
Option1.Value = True
Option2.Value = False
Option3.Value = False
End Sub

Private Sub Option2_Click()
Check1.Value = 1
Check2.Value = 1
Check3.Value = 1
Check4.Value = 1
Check5.Value = 1
Check6.Value = 0
Check7.Value = 0
Text1.Text = Str(conspecial)
Text2.Text = initialval
Text3.Text = initialval
Option1.Value = False
Option2.Value = True
Option3.Value = False
End Sub

Private Sub Option3_Click()
Check1.Value = 1
Check2.Value = 1
Check3.Value = 1
Check4.Value = 1
Check5.Value = 1
Check6.Value = 1
Check7.Value = 1
Text1.Text = Str(conprimo)
Text2.Text = initialval
Text3.Text = initialval
Option1.Value = False
Option2.Value = False
Option3.Value = True
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
Dim txtamount As Single txtamount = 0
Select Case Option1
Case 1 txtamount = condeluxe * Val(Text2.Text)
Text3.Text = Str(txtamount)
End Select
Select Case Option2
Case 2 txtamount = conspecial * Val(Text2.Text)
Text3.Text = Str(txtamount)
End Select
Select Case Option3
Case 3 txtamount = conprimo * Val(Text2.Text)
Text3.Text = Str(txtamount)
End Select
End Sub