Public Class frmRace

  Private Sub btnEvaluate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEvaluate.Click
    'Describe finishing positions in a horse race
    Dim position As Integer
    position = CInt(txtPosition.Text)
    Select Case position
      Case 1 To 3
        txtOutcome.Text = "In the money. Congratulations."
      Case Is >= 4
        txtOutcome.Text = "Not in the money."
    End Select
  End Sub

End Class






































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































