نمایش تصادفی متن در لیبل

[jaafar1363]

من می خوام با زدن یک دکمه ، متن لیبل تغییر کند.یه چیزی شبیه برنامه فال.که با زدن فقط یک دکمه،فال جدیدی نمایش داده میشه.
مثلا:
((سلام - خوبی - چه خبر؟ )) اینا رو تو لیبل به صورت تصادفی نشون بده.

[M_P_1374]

خوب میتونید از Select Case/Case/End Select استفاده کنید به این صورت


Dim I
Randomize
I = Int(Rnd * 5)
Select case I
Case 1
.
Case 2
.
Case 3
.
Case 4
.
Case 5
End select