Private Sub Command1_Click()

    Text1.Text = ""
    Text2.Text = ""

    For k = 0 To 2
        Option1(k).Value = False
    Next

    Text1.SetFocus

End Sub

Private Sub Option1_Click(Index As Integer)

    Select Case Index

        Case 0
            Text2.Text = Val(Text1.Text) * 160
        Case 1
            Text2.Text = Val(Text1.Text) * 270
        Case 2
            Text2.Text = Val(Text1.Text) * 300

    End Select

End Sub

Back to vb6 exercises