[سعود]

ضع الاسماء بمصفوفة نصية او قائمة نصية
dim i as integer=Int(Rnd() * 3)
textbox1.text= lst(i).tostring()

PHP كود :

Public Class Form1
    Dim n(2) As String
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        n = {"saud", "mady", "ali"}
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim i As Integer = Int(Rnd() * n.Length)
        Dim t As String = n(i)
        TextBox1.Text = t
    End Sub
End Class