NHL Stye Lottery

[VCFL Commish]

--------------------------------------------------------------------------------

http://au.geocities.com/rugbyfootballnrl/draft.html

I wrote a VB6 programme it takes the last 4 teams and puts them into a formula to pick the first 4 picks in the draft.

Private Sub Command1_Click()
Dim Passes

Randomize

Passes = Int((90 - 1 + 1) * Rnd + 1)
Select Case Val(Passes)
Case Is = 1
Label1 = Text1.Text
Label2 = Text2.Text
Label3 = Text3.Text
Label4 = Text4.Text
Case Is = 2
Label1 = Text1.Text
Label2 = Text2.Text
Label3 = Text3.Text
Label4 = Text4.Text
Case Is = 3
Label1 = Text1.Text
Label2 = Text2.Text
Label3 = Text3.Text
Label4 = Text4.Text
Case Is = 4
Label1 = Text1.Text
Label2 = Text2.Text
Label3 = Text3.Text
Label4 = Text4.Text
Case Is = 5
Label1 = Text1.Text
Label2 = Text2.Text
Label3 = Text3.Text
Label4 = Text4.Text
Case Is = 6
Label1 = Text1.Text
Label2 = Text2.Text
Label3 = Text3.Text
Label4 = Text4.Text
Case Is = 7
Label1 = Text1.Text
Label2 = Text2.Text
Label3 = Text3.Text
Label4 = Text4.Text
Case Is = 8
Label1 = Text1.Text
Label2 = Text2.Text
Label3 = Text3.Text
Label4 = Text4.Text
Case Is = 9
Label1 = Text1.Text
Label2 = Text2.Text
Label3 = Text3.Text
Label4 = Text4.Text
Case Is = 10
Label1 = Text1.Text
Label2 = Text4.Text
Label3 = Text2.Text
Label4 = Text3.Text
Case Is = 11
Label1 = Text1.Text
Label2 = Text4.Text
Label3 = Text2.Text
Label4 = Text3.Text
Case Is = 12
Label1 = Text1.Text
Label2 = Text4.Text
Label3 = Text2.Text
Label4 = Text3.Text
Case Is = 13
Label1 = Text1.Text
Label2 = Text4.Text
Label3 = Text2.Text
Label4 = Text3.Text
Case Is = 14
Label1 = Text1.Text
Label2 = Text4.Text
Label3 = Text2.Text
Label4 = Text3.Text
Case Is = 15
Label1 = Text1.Text
Label2 = Text4.Text
Label3 = Text2.Text
Label4 = Text3.Text
Case Is = 16
Label1 = Text1.Text
Label2 = Text4.Text
Label3 = Text2.Text
Label4 = Text3.Text
Case Is = 17
Label1 = Text1.Text
Label2 = Text4.Text
Label3 = Text2.Text
Label4 = Text3.Text
Case Is = 18
Label1 = Text1.Text
Label2 = Text3.Text
Label3 = Text4.Text
Label4 = Text2.Text
Case Is = 19
Label1 = Text1.Text
Label2 = Text3.Text
Label3 = Text4.Text
Label4 = Text2.Text
Case Is = 20
Label1 = Text1.Text
Label2 = Text3.Text
Label3 = Text4.Text
Label4 = Text2.Text
Case Is = 21
Label1 = Text1.Text
Label2 = Text3.Text
Label3 = Text4.Text
Label4 = Text2.Text
Case Is = 22
Label1 = Text1.Text
Label2 = Text3.Text
Label3 = Text4.Text
Label4 = Text2.Text
Case Is = 23
Label1 = Text1.Text
Label2 = Text3.Text
Label3 = Text4.Text
Label4 = Text2.Text
Case Is = 24
Label1 = Text1.Text
Label2 = Text3.Text
Label3 = Text4.Text
Label4 = Text2.Text
Case Is = 25
Label1 = Text2.Text
Label2 = Text1.Text
Label3 = Text3.Text
Label4 = Text4.Text
Case Is = 26
Label1 = Text2.Text
Label2 = Text1.Text
Label3 = Text3.Text
Label4 = Text4.Text
Case Is = 27
Label1 = Text2.Text
Label2 = Text1.Text
Label3 = Text3.Text
Label4 = Text4.Text
Case Is = 28
Label1 = Text2.Text
Label2 = Text1.Text
Label3 = Text3.Text
Label4 = Text4.Text
Case Is = 29
Label1 = Text2.Text
Label2 = Text1.Text
Label3 = Text3.Text
Label4 = Text4.Text
Case Is = 30
Label1 = Text2.Text
Label2 = Text1.Text
Label3 = Text3.Text
Label4 = Text4.Text
Case Is = 31
Label1 = Text2.Text
Label2 = Text1.Text
Label3 = Text3.Text
Label4 = Text4.Text
Case Is = 32
Label1 = Text2.Text
Label2 = Text4.Text
Label3 = Text1.Text
Label4 = Text3.Text
Case Is = 33
Label1 = Text2.Text
Label2 = Text4.Text
Label3 = Text1.Text
Label4 = Text3.Text
Case Is = 34
Label1 = Text2.Text
Label2 = Text4.Text
Label3 = Text1.Text
Label4 = Text3.Text
Case Is = 35
Label1 = Text2.Text
Label2 = Text4.Text
Label3 = Text1.Text
Label4 = Text3.Text
Case Is = 36
Label1 = Text2.Text
Label2 = Text4.Text
Label3 = Text1.Text
Label4 = Text3.Text
Case Is = 37
Label1 = Text2.Text
Label2 = Text4.Text
Label3 = Text1.Text
Label4 = Text3.Text
Case Is = 38
Label1 = Text2.Text
Label2 = Text4.Text
Label3 = Text1.Text
Label4 = Text3.Text
Case Is = 39
Label1 = Text2.Text
Label2 = Text3.Text
Label3 = Text4.Text
Label4 = Text1.Text
Case Is = 40
Label1 = Text2.Text
Label2 = Text3.Text
Label3 = Text4.Text
Label4 = Text1.Text
Case Is = 41
Label1 = Text2.Text
Label2 = Text3.Text
Label3 = Text4.Text
Label4 = Text1.Text
Case Is = 42
Label1 = Text2.Text
Label2 = Text3.Text
Label3 = Text4.Text
Label4 = Text1.Text
Case Is = 43
Label1 = Text2.Text
Label2 = Text3.Text
Label3 = Text4.Text
Label4 = Text1.Text
Case Is = 44
Label1 = Text2.Text
Label2 = Text3.Text
Label3 = Text4.Text
Label4 = Text1.Text
Case Is = 45
Label1 = Text2.Text
Label2 = Text3.Text
Label3 = Text4.Text
Label4 = Text1.Text
Case Is = 46
Label1 = Text2.Text
Label2 = Text3.Text
Label3 = Text4.Text
Label4 = Text1.Text
Case Is = 47
Label1 = Text3.Text
Label2 = Text1.Text
Label3 = Text2.Text
Label4 = Text4.Text
Case Is = 48
Label1 = Text3.Text
Label2 = Text1.Text
Label3 = Text2.Text
Label4 = Text4.Text
Case Is = 49
Label1 = Text3.Text
Label2 = Text1.Text
Label3 = Text2.Text
Label4 = Text4.Text
Case Is = 50
Label1 = Text3.Text
Label2 = Text1.Text
Label3 = Text2.Text
Label4 = Text4.Text
Case Is = 51
Label1 = Text3.Text
Label2 = Text1.Text
Label3 = Text2.Text
Label4 = Text4.Text
Case Is = 52
Label1 = Text3.Text
Label2 = Text1.Text
Label3 = Text2.Text
Label4 = Text4.Text
Case Is = 53
Label1 = Text3.Text
Label2 = Text1.Text
Label3 = Text2.Text
Label4 = Text4.Text
Case Is = 54
Label1 = Text3.Text
Label2 = Text4.Text
Label3 = Text1.Text
Label4 = Text2.Text
Case Is = 55
Label1 = Text3.Text
Label2 = Text4.Text
Label3 = Text1.Text
Label4 = Text2.Text
Case Is = 56
Label1 = Text3.Text
Label2 = Text4.Text
Label3 = Text1.Text
Label4 = Text2.Text
Case Is = 57
Label1 = Text3.Text
Label2 = Text4.Text
Label3 = Text1.Text
Label4 = Text2.Text
Case Is = 58
Label1 = Text3.Text
Label2 = Text4.Text
Label3 = Text1.Text
Label4 = Text2.Text
Case Is = 59
Label1 = Text3.Text
Label2 = Text4.Text
Label3 = Text1.Text
Label4 = Text2.Text
Case Is = 60
Label1 = Text3.Text
Label2 = Text4.Text
Label3 = Text1.Text
Label4 = Text2.Text
Case Is = 61
Label1 = Text3.Text
Label2 = Text2.Text
Label3 = Text4.Text
Label4 = Text1.Text
Case Is = 62
Label1 = Text3.Text
Label2 = Text2.Text
Label3 = Text4.Text
Label4 = Text1.Text
Case Is = 63
Label1 = Text3.Text
Label2 = Text2.Text
Label3 = Text4.Text
Label4 = Text1.Text
Case Is = 64
Label1 = Text3.Text
Label2 = Text2.Text
Label3 = Text4.Text
Label4 = Text1.Text
Case Is = 65
Label1 = Text3.Text
Label2 = Text2.Text
Label3 = Text4.Text
Label4 = Text1.Text
Case Is = 66
Label1 = Text3.Text
Label2 = Text2.Text
Label3 = Text4.Text
Label4 = Text1.Text
Case Is = 67
Label1 = Text3.Text
Label2 = Text2.Text
Label3 = Text4.Text
Label4 = Text1.Text
Case Is = 68
Label1 = Text4.Text
Label2 = Text1.Text
Label3 = Text2.Text
Label4 = Text3.Text
Case Is = 69
Label1 = Text4.Text
Label2 = Text1.Text
Label3 = Text2.Text
Label4 = Text3.Text
Case Is = 70
Label1 = Text4.Text
Label2 = Text1.Text
Label3 = Text2.Text
Label4 = Text3.Text
Case Is = 71
Label1 = Text4.Text
Label2 = Text1.Text
Label3 = Text2.Text
Label4 = Text3.Text
Case Is = 72
Label1 = Text4.Text
Label2 = Text1.Text
Label3 = Text2.Text
Label4 = Text3.Text
Case Is = 73
Label1 = Text4.Text
Label2 = Text1.Text
Label3 = Text2.Text
Label4 = Text3.Text
Case Is = 74
Label1 = Text4.Text
Label2 = Text1.Text
Label3 = Text2.Text
Label4 = Text3.Text
Case Is = 75
Label1 = Text4.Text
Label2 = Text3.Text
Label3 = Text1.Text
Label4 = Text2.Text
Case Is = 76
Label1 = Text4.Text
Label2 = Text3.Text
Label3 = Text1.Text
Label4 = Text2.Text
Case Is = 77
Label1 = Text4.Text
Label2 = Text3.Text
Label3 = Text1.Text
Label4 = Text2.Text
Case Is = 78
Label1 = Text4.Text
Label2 = Text3.Text
Label3 = Text1.Text
Label4 = Text2.Text
Case Is = 79
Label1 = Text4.Text
Label2 = Text3.Text
Label3 = Text1.Text
Label4 = Text2.Text
Case Is = 80
Label1 = Text4.Text
Label2 = Text3.Text
Label3 = Text1.Text
Label4 = Text2.Text
Case Is = 81
Label1 = Text4.Text
Label2 = Text3.Text
Label3 = Text1.Text
Label4 = Text2.Text
Case Is = 82
Label1 = Text4.Text
Label2 = Text2.Text
Label3 = Text3.Text
Label4 = Text1.Text
Case Is = 83
Label1 = Text4.Text
Label2 = Text2.Text
Label3 = Text3.Text
Label4 = Text1.Text
Case Is = 84
Label1 = Text4.Text
Label2 = Text2.Text
Label3 = Text3.Text
Label4 = Text1.Text
Case Is = 85
Label1 = Text4.Text
Label2 = Text2.Text
Label3 = Text3.Text
Label4 = Text1.Text
Case Is = 86
Label1 = Text4.Text
Label2 = Text2.Text
Label3 = Text3.Text
Label4 = Text1.Text
Case Is = 87
Label1 = Text4.Text
Label2 = Text2.Text
Label3 = Text3.Text
Label4 = Text1.Text
Case Is = 88
Label1 = Text4.Text
Label2 = Text2.Text
Label3 = Text3.Text
Label4 = Text1.Text
Case Is = 89
Label1 = Text4.Text
Label2 = Text2.Text
Label3 = Text3.Text
Label4 = Text1.Text
Case Is = 90
Label1 = Text4.Text
Label2 = Text2.Text
Label3 = Text3.Text
Label4 = Text1.Text
End Select
End Sub

[Brodie]

Wow cool idea is the VCFL and RCSL going to use this program?

[VCFL Commish]

Yes we are .