[سعود]

اخي الكريم الاهم الفكرة

لاني عملت مثال مع ملف نصي

وهذا كلاس الفورم

PHP كود :

Public Class Form1
    Dim alln As List(Of String)
    Dim old As Integer = 0
    Private Function str() As String
begin:
        Dim nid As Integer = Int(Rnd() * 1000)
        If old = nid Then GoTo begin
        If alln.Contains(nid) Then GoTo begin
        Return nid
    End Function
    Private Sub loadn()
        alln = New List(Of String)
        alln.AddRange(My.Computer.FileSystem.ReadAllText("n.txt").Split(vbNewLine))
    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        loadn()
        Label1.Text = str()
        My.Computer.FileSystem.WriteAllText("n.txt", Label1.Text & vbNewLine, True)
        old = Label1.Text
    End Sub
End Class