[سؤال] لو سمحتو ايريد تصميم برنامج

كود :
Public Class Form1



    '- الاعلان عن متغير نصي ليحمل النص الموجود في الملف

    Dim fileContents As String

    '- الاعلان عن مصفوفة نصية باستخدام علامتي () لتخزين النص  بعد تقسيمه عن طريق الاسطر

    Dim Lines() As String



    '- متغير رقمي لاستخدامه في عد الاسطر

    Dim u As Integer = -1



    '- عند تحميل الفورم

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



        '- جلب النص من الملف

        '- Application.StartupPath  -  تعني مسار المجلد الذي تم فتح البرنامج منه

        fileContents = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\Url.txt")



        '-  تقوم بتقسيم النص الي مصفوفة عن طرق حرف معين Split الدالة

        '- وهي تعني سطر vbNewLine هنا سيتم تقسيم النص عن طريق الدالة 

        Lines = Split(fileContents, vbNewLine) ' وضع كل سطر بالملف النصي بعنصر بالمصفوفة





        '- وضع جميع العناصر الموجودة في المصفوفة في اليست بوكس

        ListBox1.Items.AddRange(Lines)



        '- تشغيل التايمر

        '- الخاص بالتايمر Tick وعند تشغيله سيتم تنفيذ اي كود يتم كتابته في الحدث 

        Timer1.Enabled = True





    End Sub



    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        On Error Resume Next



        '- نقص العدد الموجود في اليبل ب 1

        Label2.Text = Label2.Text - 1



        '- عند انتهاء العد والوصول الي الصفر

        If Label2.Text = 0 Then



            '- زيادة العداد بواحد

            u = u + 1



            '-  تقوم بفتح اي شي برنامج ملف نصي او موقع اي رابط نعطيها اياه راح تفتحه Process.Start الدالة

            '- هنا اعطيناها رابط الموقع من المصفوفة عن طريق رقمه في العداد

            Process.Start(Lines(u))



            '- تغير العدد ليبدء في العد من جديد

            Label2.Text = 60



        End If



    End Sub

End Class