VB poker hand evaluator
<p>My class programming project is to create a program that allows you to input numbers and letters to specify a card number and suit (e.g. 2 and D = 2 of Diamonds).</p>

<p>This is what it will look like:
<a href="http://i.stack.imgur.com/VLmKs.jpg" rel="nofollow">Poker</a></p>

<p>This is the code I have so far:</p>

<pre><code>Public Class frmPoker
    Private Sub btnDisplay_Click(sender As Object, e As EventArgs) Handles btnDisplay.Click
        Dim cards(4) As Integer
        Dim suit(4) As String

        cards(0) = CInt(txtCard1.Text)
        cards(1) = CInt(txtCard2.Text)
        cards(2) = CInt(txtCard3.Text)
        cards(3) = CInt(txtCard4.Text)
        cards(4) = CInt(txtCard5.Text)

        Dim card = From item In cards
                   Select item
                   Distinct

        If card.Count = 4 Then
            txtDisplay.Text = "One Pair"
        ElseIf card.Count = 3 Then
            txtDisplay.Text = "Three of a kind"
        ElseIf card.Count = 2 Then
            txtDisplay.Text = "Four of a kind"
        End If

        suit(0) = txtSuit1.Text
        suit(1) = txtSuit2.Text
        suit(2) = txtSuit3.Text
        suit(3) = txtSuit4.Text
        suit(4) = txtSuit5.Text

        Dim suits = From item In suit
                    Select item
                    Distinct

        If suits.Count = 1 Then
            txtDisplay.Text = "Flush"
        End If
</code></pre>

<p>I'm not sure how to approach determining a full house and a straight flush. Also if there is, for example, two 2s and two 3s, the program will determine that is actually three of a kind.</p>