کلمه تصادفی

سلام
یه برنامه میخوام که وقتی روی دکمه کلیک کنیم یک کلمه تصادفی (Random) که خودمون قبلا برای برنامه تعریف کرده ایم نمایش دهد . اگه امکان داره سورس کد بزارین برای دانلود

اگه خودتون برای برنامه تعریف کردین دیگه Random چه معنی میده؟!

به طور مثال کلمه های :

Yes,No,Hi,Hello

با هربار کلیک روی دکمه یکی از این کلمه ها رو نشون بده

رشته ها رو توی یک آرایه ی Variant میریزیم(توی آرایه معمولی هم میشد) و با تابع Rnd یک عدد تصادفی تولید میکنیم و با استفاده از این عدد به عنوان اندیس آرایه یکی از رشته ها رو نشون میدیم.
Call Randomize هم برای اینه که با هر بار اجرای برنامه این اعداد متفاوت باشن.

کد:

---

Private Sub Command1_Click()
   
    Dim arr As Variant
    Dim i As Integer
   
    arr = Array("Yes", "No", "Hi", "Hello")
    i = Int(Rnd * 4)
   
    MsgBox arr(i)
   
End Sub
Private Sub Form_Load()
   
    Call Randomize
 
End Sub

---

خیلی ممنون عزیزم