[أبو خالد الشكري]

السلام عليكم
لدي مثلا تكست بوكس من رقم 
وتكست ثاني الى رقم
وتكست ثالث مقدار الزيادة
المطلوب
عند كتابة رقم 1 مثلا في تكست من رقم
وكتابة رقم 5 مثلا في تكست الى رقم
وكتابة رقم 1 في تكست مقدار الزيادة
يظهر في الداتا جريد فيو في العمود الثالث الارقام متسلسلة 1  2  3  4   5
بحثت كثيرا في مواقع اجنبية ولم اجد الكود الذي يقوم بذلك
وجزاكم الله كل خير

جرب التالي :
1- أضف الأدوات التالية إلى الفورم :
TextBox3 ،  TextBox2 ،  TextBox1
وقم بتسميتها كما يلي :
txtFrom ، txtTo ، txtIncrease

2- أضف DataGridView
وقم بتسميتها كما يلي :
dgvResult

3- اضف زر Button1
وقم بتسميته كما يلي :
btnGenerate

أخيرا الصق الكود التالي ، وشغل البرنامج 

كود :

    Private Sub GenerateNumbers()

        Dim fromValue As Integer
        Dim toValue As Integer
        Dim increaseValue As Integer

        Dim dt As New DataTable
        dt.Columns.Add("الأرقام")

        ' ضبط الاتجاه
        If fromValue < toValue AndAlso increaseValue < 0 Then
            increaseValue = Math.Abs(increaseValue)
        ElseIf fromValue > toValue AndAlso increaseValue > 0 Then
            increaseValue = -increaseValue
        End If

        Dim i As Integer = fromValue

        While (increaseValue > 0 AndAlso i <= toValue) OrElse
          (increaseValue < 0 AndAlso i >= toValue)

            dt.Rows.Add(i)
            i += increaseValue
        End While

        dgvResult.DataSource = dt

    End Sub

    Private Sub btnGenerate_Click(sender As Object, e As EventArgs) Handles btnGenerate.Click

        GenerateNumbers()

    End Sub