[aldery]

سلام عليكم : محتاج كود يختار قيمة بشكل عشوائي 

مثال : 
       Label1.Text = Int(Rnd() * 3)
        Select Case Label1.Text
            Case 0
                Label1.Text = " C2CCW-AMCC2-C7CCC-4KFNG-4R4D5 "
            Case 1
                Label1.Text = " C2CCW-AMCC2-C7CCC- "
            Case 2
                Label1.Text = " C2CCW-6R4D5 "

كل دقيقة يضهر نص منها بشكل عشوائي او عند الضغط على زر يضهر سيريال جديد من القائمة و العدد غير محدود

ومشكورين 

[عبدالله الدوسري]

وعليكم السلام 

أخي aldery

أنت جاوبت على نفسك وأعطيت لنفسك مثال . 

إذا كنت تريد شيء آخر وضح أكثر

[سعود]

هل تقصد مثل هذا؟؟

PHP كود :

Public Class Form1
    Dim lst As New List(Of String)
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Each h As String In My.Computer.FileSystem.ReadAllText("list.txt").Split(vbNewLine)
            lst.Add(h.Trim)
        Next
        Label2.Text = lst.Count
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer = CInt(Rnd() * lst.Count)
        Label1.Text = lst(i)
        lst.RemoveAt(i)
        Label2.Text = lst.Count
    End Sub
End Class