بازی جور چین با قابلیت random

سلام.من بازی جورچین میخواهم ولی قابلیت random را داشته باشد یعنی با کلیک بر دکمه بازی به طور random عوض شودواگر کابر درست انتخاب کرده باشد به ان امتیاز بدهد. با تشکر

من یه کد تو vb 6 نوشتم که موقع لود شدن فرم تو چند تا label اعداد بین 1 تا تعداد لیبل ها رو به صورت random می نویسه ببین فکر کنم به دردت بخورا فقط یه کم باید تغییرش بدی

PrivateSub Form_Load()

For i = 1 To Label1.Count

Call rndnumber

Do

Call test

LoopWhile (n = 1)

Label1(i - 1).Caption = rndnum

Next

For i = 1 To Label1.Count

Next

EndSub

PrivateSub rndnumber()

Do

rndnum = Int(Rnd * 10) + 1

Randomize Timer

LoopWhile (rndnum > 9)

End

Sub

PrivateSub test()

n = 0



For

j = 1 To i - 1

If Label1(j - 1).Caption = rndnum Then

n = 1

EndIf

If n = 1 Then

Call rndnumber

EndIf

Next j

End
Sub