Cribbage program finished!
Finally I’ve finished the VB.NET program to play the game of cribbage. So time consuming but so, so interesting.
Now I have to think of another project.
A code snippet
RunPoints = HowManyRunPoints(Cards, n, TurnOverCard)
PairsPoints = HowManyPairsPoints(Cards, n, TurnOverCard)
FifteenPoints = HowMany15points(Cards, n, TurnOverCard)
FlushPoints = HowManyFlushPoints(Cards, n, TurnOverCard)
JackPoints = HowManyJackPoints(Cards, n, TurnOverCard)
If FifteenPoints > 0 Then t = t + FormatNumber(FifteenPoints) + " points for fifteens " + vbCrLf
If PairsPoints > 0 Then t = t + FormatNumber(PairsPoints) + " points for pairs " + vbCrLf
If RunPoints > 0 Then t = t + FormatNumber(RunPoints) + " points for runs " + vbCrLf
If FlushPoints > 0 Then t = t + FormatNumber(FlushPoints) + " points for a flush " + vbCrLf
If JackPoints > 0 Then t = t + FormatNumber(JackPoints) + " point for the jack " + vbCrLf
If t = "" Then t = "NONE!" + vbCrLf
and so on.....
things change 
Have your say! (No need for any ID!)