[asemshahen5]

ضع متغيير من نوع انتجر في السيتنغ و اكتب الكود التالي في حدث تحميل الفورم :

PHP كود :

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim lines() = My.Resources.textfile.Split(vbNewLine)
        If My.Settings.HekmaID >= lines.Count Then
            My.Settings.HekmaID = 0
            My.Settings.Save()
        End If
        Dim hekma = lines(My.Settings.HekmaID)
        TextBox1.Text = hekma
        My.Settings.HekmaID = My.Settings.HekmaID + 1
        My.Settings.Save()
    End Sub