خواندن تصادفي

[Reza,M]

با سلام
من در برنامه ام چند تا

Private Sub a1()
' دستورات
End Sub
Private Sub a2()
' دستورات
End Sub
Private Sub a3()
' دستورات
End Sub
Private Sub a4()
' دستورات
End Sub
.
.
.
دارم و ميخوام دكمه اي داشته باشم كه با زدن آن هر يك از آنها بصورت راندوم خوانده شود
تكراري خواندن هم مهم نيست فقط تصادفي خواندن آنها برام مهمه

[hesam_hma]

سلام
شما یه select case بنویس و به تعداد توابعتون case داخلش بزار یه متغیر هم تعریف کن که اعداد تصادفی بگیره مثه کد پایین :

Dim No As Integer
Dim aw As New Random
No = aw.Next(0, 2)
Select Case No
Case 0
a1()
Case 1
a2()
Case 2
a3()
End Select