Imports EducationClass
Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim Ed As New Edu()
    Dim CurR As Integer = -1, CurSch As Integer = -1, CurSt As Integer = -1

    Property CurrentRegion() As Integer
        Get
            Return CurR
        End Get
        Set(ByVal Value As Integer)
            Dim R As Integer = Ed.Regions.Count - 1
            If Value > R Or Value < 0 Then
                Dim Exc As New Exception("رقم المنطقة غير صالح.")
                Exit Property
            End If
            CurR = Value
            ViewRegion()
            If CurR = 0 Then
                BtRPrev.Enabled = False
                BtRFirst.Enabled = False
            Else
                BtRPrev.Enabled = True
                BtRFirst.Enabled = True
            End If

            If CurR = R Then
                BtRNext.Enabled = False
                BtRLast.Enabled = False
            Else
                BtRNext.Enabled = True
                BtRLast.Enabled = True
            End If
            ViewCaption()
        End Set

    End Property
    Property CurrentSchool() As Integer
        Get
            Return CurSch
        End Get
        Set(ByVal Value As Integer)
            Dim S As Integer = Ed.Regions.Item(CurR).NoOfSchools - 1
            If Value > S Or Value < 0 Then
                Dim Exc As New Exception("رقم المدرسة غير صالح.")
                Exit Property
            End If
            CurSch = Value
            ViewSchool()
            If CurSch = 0 Then
                BtSchPrev.Enabled = False
                BtSchFirst.Enabled = False
            Else
                BtSchPrev.Enabled = True
                BtSchFirst.Enabled = True
            End If

            If CurSch = S Then
                BtSchNext.Enabled = False
                BtSchLast.Enabled = False
            Else
                BtSchNext.Enabled = True
                BtSchLast.Enabled = True
            End If
            viewCaption()
        End Set
    End Property
#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents Button18 As System.Windows.Forms.Button
    Friend WithEvents Button19 As System.Windows.Forms.Button
    Friend WithEvents TxtStudent As System.Windows.Forms.TextBox
    Friend WithEvents TxtRegion As System.Windows.Forms.TextBox
    Friend WithEvents TxtSchool As System.Windows.Forms.TextBox
    Friend WithEvents BtSchA As System.Windows.Forms.Button
    Friend WithEvents BtStA As System.Windows.Forms.Button
    Friend WithEvents BtStR As System.Windows.Forms.Button
    Friend WithEvents BtSchR As System.Windows.Forms.Button
    Friend WithEvents BtRA As System.Windows.Forms.Button
    Friend WithEvents BtRR As System.Windows.Forms.Button
    Friend WithEvents BtRC As System.Windows.Forms.Button
    Friend WithEvents BtSchC As System.Windows.Forms.Button
    Friend WithEvents BtStC As System.Windows.Forms.Button
    Friend WithEvents BtRNext As System.Windows.Forms.Button
    Friend WithEvents BtRPrev As System.Windows.Forms.Button
    Friend WithEvents BtRFirst As System.Windows.Forms.Button
    Friend WithEvents BtSchPrev As System.Windows.Forms.Button
    Friend WithEvents BtSchFirst As System.Windows.Forms.Button
    Friend WithEvents BtStPrev As System.Windows.Forms.Button
    Friend WithEvents BtStFirst As System.Windows.Forms.Button
    Friend WithEvents BtRLast As System.Windows.Forms.Button
    Friend WithEvents BtSchLast As System.Windows.Forms.Button
    Friend WithEvents BtSchNext As System.Windows.Forms.Button
    Friend WithEvents BtStLast As System.Windows.Forms.Button
    Friend WithEvents BtStNext As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.TxtStudent = New System.Windows.Forms.TextBox()
        Me.TxtRegion = New System.Windows.Forms.TextBox()
        Me.BtSchA = New System.Windows.Forms.Button()
        Me.BtRLast = New System.Windows.Forms.Button()
        Me.BtRNext = New System.Windows.Forms.Button()
        Me.BtRPrev = New System.Windows.Forms.Button()
        Me.BtRFirst = New System.Windows.Forms.Button()
        Me.TxtSchool = New System.Windows.Forms.TextBox()
        Me.BtStA = New System.Windows.Forms.Button()
        Me.BtStR = New System.Windows.Forms.Button()
        Me.BtSchR = New System.Windows.Forms.Button()
        Me.BtRA = New System.Windows.Forms.Button()
        Me.BtRR = New System.Windows.Forms.Button()
        Me.BtRC = New System.Windows.Forms.Button()
        Me.BtSchC = New System.Windows.Forms.Button()
        Me.BtStC = New System.Windows.Forms.Button()
        Me.BtSchPrev = New System.Windows.Forms.Button()
        Me.BtSchFirst = New System.Windows.Forms.Button()
        Me.BtStPrev = New System.Windows.Forms.Button()
        Me.BtStFirst = New System.Windows.Forms.Button()
        Me.BtSchLast = New System.Windows.Forms.Button()
        Me.BtSchNext = New System.Windows.Forms.Button()
        Me.BtStLast = New System.Windows.Forms.Button()
        Me.BtStNext = New System.Windows.Forms.Button()
        Me.Button18 = New System.Windows.Forms.Button()
        Me.Button19 = New System.Windows.Forms.Button()
        Me.SuspendLayout()
        '
        'TxtStudent
        '
        Me.TxtStudent.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(178, Byte))
        Me.TxtStudent.Location = New System.Drawing.Point(48, 40)
        Me.TxtStudent.Name = "TxtStudent"
        Me.TxtStudent.Size = New System.Drawing.Size(120, 26)
        Me.TxtStudent.TabIndex = 2
        Me.TxtStudent.Text = ""
        '
        'TxtRegion
        '
        Me.TxtRegion.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(178, Byte))
        Me.TxtRegion.Location = New System.Drawing.Point(312, 40)
        Me.TxtRegion.Name = "TxtRegion"
        Me.TxtRegion.Size = New System.Drawing.Size(120, 26)
        Me.TxtRegion.TabIndex = 0
        Me.TxtRegion.Text = ""
        '
        'BtSchA
        '
        Me.BtSchA.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(178, Byte))
        Me.BtSchA.Location = New System.Drawing.Point(356, 168)
        Me.BtSchA.Name = "BtSchA"
        Me.BtSchA.Size = New System.Drawing.Size(80, 24)
        Me.BtSchA.TabIndex = 3
        Me.BtSchA.Text = "إضافة مدرسة"
        '
        'BtRLast
        '
        Me.BtRLast.Enabled = False
        Me.BtRLast.Font = New System.Drawing.Font("Simplified Arabic", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(178, Byte))
        Me.BtRLast.Location = New System.Drawing.Point(44, 144)
        Me.BtRLast.Name = "BtRLast"
        Me.BtRLast.Size = New System.Drawing.Size(40, 24)
        Me.BtRLast.TabIndex = 14
        Me.BtRLast.Text = ">>"
        '
        'BtRNext
        '
        Me.BtRNext.Enabled = False
        Me.BtRNext.Font = New System.Drawing.Font("Simplified Arabic", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(178, Byte))
        Me.BtRNext.Location = New System.Drawing.Point(84, 144)
        Me.BtRNext.Name = "BtRNext"
        Me.BtRNext.Size = New System.Drawing.Size(40, 24)
        Me.BtRNext.TabIndex = 13
        Me.BtRNext.Text = ">"
        '
        'BtRPrev
        '
        Me.BtRPrev.Enabled = False
        Me.BtRPrev.Font = New System.Drawing.Font("Simplified Arabic", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(178, Byte))
        Me.BtRPrev.Location = New System.Drawing.Point(124, 144)
        Me.BtRPrev.Name = "BtRPrev"
        Me.BtRPrev.Size = New System.Drawing.Size(40, 24)
        Me.BtRPrev.TabIndex = 11
        Me.BtRPrev.Text = "<"
        '
        'BtRFirst
        '
        Me.BtRFirst.Enabled = False
        Me.BtRFirst.Font = New System.Drawing.Font("Simplified Arabic", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(178, Byte))
        Me.BtRFirst.Location = New System.Drawing.Point(164, 144)
        Me.BtRFirst.Name = "BtRFirst"
        Me.BtRFirst.Size = New System.Drawing.Size(40, 24)
        Me.BtRFirst.TabIndex = 12
        Me.BtRFirst.Text = "<<"
        '
        'TxtSchool
        '
        Me.TxtSchool.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(178, Byte))
        Me.TxtSchool.Location = New System.Drawing.Point(180, 40)
        Me.TxtSchool.Name = "TxtSchool"
        Me.TxtSchool.Size = New System.Drawing.Size(120, 26)
        Me.TxtSchool.TabIndex = 1
        Me.TxtSchool.Text = ""
        '
        'BtStA
        '
        Me.BtStA.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(178, Byte))
        Me.BtStA.Location = New System.Drawing.Point(356, 192)
        Me.BtStA.Name = "BtStA"
        Me.BtStA.Size = New System.Drawing.Size(80, 24)
        Me.BtStA.TabIndex = 17
        Me.BtStA.Tag = ""
        Me.BtStA.Text = "إضافة طالب"
        '
        'BtStR
        '
        Me.BtStR.Enabled = False
        Me.BtStR.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(178, Byte))
        Me.BtStR.Location = New System.Drawing.Point(276, 192)
        Me.BtStR.Name = "BtStR"
        Me.BtStR.Size = New System.Drawing.Size(80, 24)
        Me.BtStR.TabIndex = 19
        Me.BtStR.Tag = ""
        Me.BtStR.Text = "حذف طالب"
        '
        'BtSchR
        '
        Me.BtSchR.Enabled = False
        Me.BtSchR.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(178, Byte))
        Me.BtSchR.Location = New System.Drawing.Point(276, 168)
        Me.BtSchR.Name = "BtSchR"
        Me.BtSchR.Size = New System.Drawing.Size(80, 24)
        Me.BtSchR.TabIndex = 18
        Me.BtSchR.Text = "حذف مدرسة"
        '
        'BtRA
        '
        Me.BtRA.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(178, Byte))
        Me.BtRA.Location = New System.Drawing.Point(356, 144)
        Me.BtRA.Name = "BtRA"
        Me.BtRA.Size = New System.Drawing.Size(80, 24)
        Me.BtRA.TabIndex = 20
        Me.BtRA.Text = "إضافة منطقة"
        '
        'BtRR
        '
        Me.BtRR.Enabled = False
        Me.BtRR.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(178, Byte))
        Me.BtRR.Location = New System.Drawing.Point(276, 144)
        Me.BtRR.Name = "BtRR"
        Me.BtRR.Size = New System.Drawing.Size(80, 24)
        Me.BtRR.TabIndex = 21
        Me.BtRR.Text = "حذف منطقة"
        '
        'BtRC
        '
        Me.BtRC.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(178, Byte))
        Me.BtRC.Location = New System.Drawing.Point(204, 144)
        Me.BtRC.Name = "BtRC"
        Me.BtRC.Size = New System.Drawing.Size(80, 24)
        Me.BtRC.TabIndex = 22
        Me.BtRC.Text = "عدد المناطق"
        '
        'BtSchC
        '
        Me.BtSchC.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(178, Byte))
        Me.BtSchC.Location = New System.Drawing.Point(204, 168)
        Me.BtSchC.Name = "BtSchC"
        Me.BtSchC.Size = New System.Drawing.Size(80, 24)
        Me.BtSchC.TabIndex = 23
        Me.BtSchC.Text = "عدد المدارس"
        '
        'BtStC
        '
        Me.BtStC.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(178, Byte))
        Me.BtStC.Location = New System.Drawing.Point(204, 192)
        Me.BtStC.Name = "BtStC"
        Me.BtStC.Size = New System.Drawing.Size(80, 24)
        Me.BtStC.TabIndex = 24
        Me.BtStC.Text = "عدد الطلاب"
        '
        'BtSchPrev
        '
        Me.BtSchPrev.Enabled = False
        Me.BtSchPrev.Font = New System.Drawing.Font("Simplified Arabic", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(178, Byte))
        Me.BtSchPrev.Location = New System.Drawing.Point(124, 168)
        Me.BtSchPrev.Name = "BtSchPrev"
        Me.BtSchPrev.Size = New System.Drawing.Size(40, 24)
        Me.BtSchPrev.TabIndex = 25
        Me.BtSchPrev.Text = "<"
        '
        'BtSchFirst
        '
        Me.BtSchFirst.Enabled = False
        Me.BtSchFirst.Font = New System.Drawing.Font("Simplified Arabic", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(178, Byte))
        Me.BtSchFirst.Location = New System.Drawing.Point(164, 168)
        Me.BtSchFirst.Name = "BtSchFirst"
        Me.BtSchFirst.Size = New System.Drawing.Size(40, 24)
        Me.BtSchFirst.TabIndex = 26
        Me.BtSchFirst.Text = "<<"
        '
        'BtStPrev
        '
        Me.BtStPrev.Enabled = False
        Me.BtStPrev.Font = New System.Drawing.Font("Simplified Arabic", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(178, Byte))
        Me.BtStPrev.Location = New System.Drawing.Point(124, 192)
        Me.BtStPrev.Name = "BtStPrev"
        Me.BtStPrev.Size = New System.Drawing.Size(40, 24)
        Me.BtStPrev.TabIndex = 27
        Me.BtStPrev.Text = "<"
        '
        'BtStFirst
        '
        Me.BtStFirst.Enabled = False
        Me.BtStFirst.Font = New System.Drawing.Font("Simplified Arabic", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(178, Byte))
        Me.BtStFirst.Location = New System.Drawing.Point(164, 192)
        Me.BtStFirst.Name = "BtStFirst"
        Me.BtStFirst.Size = New System.Drawing.Size(40, 24)
        Me.BtStFirst.TabIndex = 28
        Me.BtStFirst.Text = "<<"
        '
        'BtSchLast
        '
        Me.BtSchLast.Enabled = False
        Me.BtSchLast.Font = New System.Drawing.Font("Simplified Arabic", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(178, Byte))
        Me.BtSchLast.Location = New System.Drawing.Point(44, 168)
        Me.BtSchLast.Name = "BtSchLast"
        Me.BtSchLast.Size = New System.Drawing.Size(40, 24)
        Me.BtSchLast.TabIndex = 30
        Me.BtSchLast.Text = ">>"
        '
        'BtSchNext
        '
        Me.BtSchNext.Enabled = False
        Me.BtSchNext.Font = New System.Drawing.Font("Simplified Arabic", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(178, Byte))
        Me.BtSchNext.Location = New System.Drawing.Point(84, 168)
        Me.BtSchNext.Name = "BtSchNext"
        Me.BtSchNext.Size = New System.Drawing.Size(40, 24)
        Me.BtSchNext.TabIndex = 29
        Me.BtSchNext.Text = ">"
        '
        'BtStLast
        '
        Me.BtStLast.Enabled = False
        Me.BtStLast.Font = New System.Drawing.Font("Simplified Arabic", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(178, Byte))
        Me.BtStLast.Location = New System.Drawing.Point(44, 192)
        Me.BtStLast.Name = "BtStLast"
        Me.BtStLast.Size = New System.Drawing.Size(40, 24)
        Me.BtStLast.TabIndex = 32
        Me.BtStLast.Text = ">>"
        '
        'BtStNext
        '
        Me.BtStNext.Enabled = False
        Me.BtStNext.Font = New System.Drawing.Font("Simplified Arabic", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(178, Byte))
        Me.BtStNext.Location = New System.Drawing.Point(84, 192)
        Me.BtStNext.Name = "BtStNext"
        Me.BtStNext.Size = New System.Drawing.Size(40, 24)
        Me.BtStNext.TabIndex = 31
        Me.BtStNext.Text = ">"
        '
        'Button18
        '
        Me.Button18.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(178, Byte))
        Me.Button18.Location = New System.Drawing.Point(240, 96)
        Me.Button18.Name = "Button18"
        Me.Button18.Size = New System.Drawing.Size(112, 24)
        Me.Button18.TabIndex = 33
        Me.Button18.Text = "العدد الكلّي للمدارس"
        '
        'Button19
        '
        Me.Button19.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(178, Byte))
        Me.Button19.Location = New System.Drawing.Point(128, 96)
        Me.Button19.Name = "Button19"
        Me.Button19.Size = New System.Drawing.Size(112, 24)
        Me.Button19.TabIndex = 34
        Me.Button19.Text = "العدد الكلّي للطلبة"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(480, 226)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button19, Me.Button18, Me.BtStLast, Me.BtStNext, Me.BtSchLast, Me.BtSchNext, Me.BtStPrev, Me.BtStFirst, Me.BtSchPrev, Me.BtSchFirst, Me.BtStC, Me.BtSchC, Me.BtRC, Me.BtRR, Me.BtRA, Me.BtStR, Me.BtSchR, Me.BtStA, Me.TxtSchool, Me.BtRLast, Me.BtRNext, Me.BtRPrev, Me.BtRFirst, Me.BtSchA, Me.TxtRegion, Me.TxtStudent})
        Me.Name = "Form1"
        Me.RightToLeft = System.Windows.Forms.RightToLeft.Yes
        Me.Text = "التعليم"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtRA.Click
        Dim S As String = InputBox("أدخل اسم المنطقة", "إضافة منطقة")
        If S <> "" Then
            Ed.Regions.Add(S)
            CurrentRegion = Ed.NoOfRegions - 1
            BtRR.Enabled = True
        End If
    End Sub
    Sub ViewRegion()
        If CurR = -1 OrElse Ed.NoOfRegions = 0 Then
            TxtRegion.Text = ""
            CurSch = -1
        Else
            TxtRegion.Text = Ed.Regions.Item(CurR).Name
            If Ed.Regions.Item(CurR).NoOfSchools = 0 Then
                CurSch = -1
            Else
                CurSch = 0
            End If
        End If
        ViewSchool()
    End Sub

    Sub ViewSchool()
        If CurSch = -1 OrElse Ed.Regions.Item(CurR).NoOfSchools = 0 Then
            TxtSchool.Text = ""
            CurSt = -1
        Else
            TxtSchool.Text = Ed.Regions.Item(CurR).Schools.Item(CurSch).Name
            If Ed.Regions.Item(CurR).Schools.Item(CurSch).NoOfStudents = 0 Then
                CurSt = -1
            Else
                CurSt = 0
            End If
        End If
        ViewStudent()
    End Sub
    Sub ViewStudent()
        If CurSt = -1 OrElse Ed.Regions.Item(CurR).Schools.Item(CurSch).NoOfStudents = 0 Then
            TxtStudent.Text = ""
        Else
            TxtStudent.Text = Ed.Regions.Item(CurR).Schools.Item(CurSch).Students.Item(CurSt).Name
        End If
    End Sub

    Private Sub BtSchA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtSchA.Click
        Dim S As New FrmSch()
        If S.CbStage.SelectedIndex = -1 Then S.CbStage.SelectedIndex = 0
        If S.ShowDialog = DialogResult.OK Then
            Ed.Regions.Item(CurR).Schools.Add(S.CbStage.SelectedIndex, S.TxtSch.Text)
            CurrentSchool = Ed.Regions.Item(CurR).NoOfSchools - 1
            BtSchR.Enabled = True
        End If
    End Sub

    Private Sub BtRPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtRPrev.Click
        CurrentRegion = CurR - 1
    End Sub

    Private Sub BtRFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtRFirst.Click
        CurrentRegion = 0
    End Sub

    Private Sub BtRNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtRNext.Click
        CurrentRegion = CurR + 1
    End Sub

    Private Sub BtRLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtRLast.Click
        CurrentRegion = Ed.NoOfRegions - 1
    End Sub

    Private Sub BtRR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtRR.Click
        Dim M As MsgBoxResult = MsgBox("سيتم حذف هذه المنطقة وكلّ ما يندرج تحتها من مدارس وطلبة.. أكيد أنت من ذلك؟", MsgBoxStyle.YesNo Or MsgBoxStyle.MsgBoxRtlReading Or MsgBoxStyle.MsgBoxRight)
        If M = MsgBoxResult.Yes Then
            Ed.Regions.RemoveAt(CurR)
            Dim R As Integer = Ed.NoOfRegions
            If CurR <> 0 Then
                If CurR = R Then
                    CurrentRegion = CurR - 1
                Else
                    CurrentRegion = CurR
                End If
            ElseIf R = 0 Then
                CurR = -1
                BtRR.Enabled = False
                BtSchA.Enabled = False
                BtSchR.Enabled = False
                BtStA.Enabled = False
                ViewRegion()
                Me.Text = "التعليم"
            Else : CurrentRegion = 0
            End If
        End If
    End Sub
    Sub viewCaption()
        If CurR <> -1 Then
            Me.Text = "المنطقة رقم " + Trim(CurR)
            If CurSch <> -1 Then
                Me.Text += "، المدرسة رقم " + Trim(CurSch)
                If CurSt <> -1 Then Me.Text += "، الطالب رقم" + Trim(CurSt)
            End If
        Else
            Me.Text = "التعليم"
        End If
    End Sub

    Private Sub BtSchR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtSchR.Click
        MsgBox("هذا الكود متروك لك كتدريب")
    End Sub

    Private Sub BtSchC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtSchC.Click
        MsgBox("هذا الكود متروك لك كتدريب")
    End Sub

    Private Sub BtSchPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtSchPrev.Click
        MsgBox("هذا الكود متروك لك كتدريب")
    End Sub

    Private Sub BtSchFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtSchFirst.Click
        MsgBox("هذا الكود متروك لك كتدريب")
    End Sub

    Private Sub BtSchNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtSchNext.Click
        MsgBox("هذا الكود متروك لك كتدريب")
    End Sub

    Private Sub BtSchLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtSchLast.Click
        MsgBox("هذا الكود متروك لك كتدريب")
    End Sub

    Private Sub BtStFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtStFirst.Click
        MsgBox("هذا الكود متروك لك كتدريب")
    End Sub

    Private Sub BtStPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtStPrev.Click
        MsgBox("هذا الكود متروك لك كتدريب")
    End Sub

    Private Sub BtStA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtStA.Click
        MsgBox("هذا الكود متروك لك كتدريب")
    End Sub

    Private Sub BtStR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtStR.Click
        MsgBox("هذا الكود متروك لك كتدريب")
    End Sub

    Private Sub BtStC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtStC.Click
        MsgBox("هذا الكود متروك لك كتدريب")
    End Sub

    Private Sub BtStNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtStNext.Click
        MsgBox("هذا الكود متروك لك كتدريب")
    End Sub

    Private Sub BtStLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtStLast.Click
        MsgBox("هذا الكود متروك لك كتدريب")
    End Sub

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        MsgBox("هذا الكود متروك لك كتدريب")
    End Sub

    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
        MsgBox("هذا الكود متروك لك كتدريب")
    End Sub
End Class