[سعود]

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

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