•Private Sub
btnDescribe_Click(...)
• Handles btnDescribe.Click
• Dim position As Integer
• position = CInt(txtPosition.Text)
• Select Case position
• Case 1 To 3
• txtOutcome.Text = "In the
money."
• Case Is >= 4
• txtOutcome.Text = "Not in the
money."
• End Select
•End Sub