Public Class Form1
    Inherits System.Windows.Forms.Form

#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 GroupBox1 As System.Windows.Forms.GroupBox
    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents DataGrid1 As System.Windows.Forms.DataGrid
    Friend WithEvents Button2 As System.Windows.Forms.Button
    Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents Label6 As System.Windows.Forms.Label
    Friend WithEvents Label7 As System.Windows.Forms.Label
    Friend WithEvents Button3 As System.Windows.Forms.Button
    Friend WithEvents TextBox5 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox6 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox7 As System.Windows.Forms.TextBox
    Friend WithEvents Button4 As System.Windows.Forms.Button
    Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
    Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
    Friend WithEvents DataGrid2 As System.Windows.Forms.DataGrid
    Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
    Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem
    Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
    Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
    Friend WithEvents Label8 As System.Windows.Forms.Label
    Friend WithEvents Label9 As System.Windows.Forms.Label
    Friend WithEvents Button5 As System.Windows.Forms.Button
    Friend WithEvents Button6 As System.Windows.Forms.Button
    Friend WithEvents cluck As System.Windows.Forms.Label
    Friend WithEvents Timer1 As System.Windows.Forms.Timer
    Friend WithEvents PictureBox3 As System.Windows.Forms.PictureBox
    Friend WithEvents w As System.Windows.Forms.LinkLabel
    Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox5 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox6 As System.Windows.Forms.PictureBox
    Friend WithEvents PictureBox7 As System.Windows.Forms.PictureBox
    Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
    Friend WithEvents Label10 As System.Windows.Forms.Label
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
        Me.Button5 = New System.Windows.Forms.Button()
        Me.Label4 = New System.Windows.Forms.Label()
        Me.TextBox4 = New System.Windows.Forms.TextBox()
        Me.Label3 = New System.Windows.Forms.Label()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.Button1 = New System.Windows.Forms.Button()
        Me.TextBox3 = New System.Windows.Forms.TextBox()
        Me.TextBox2 = New System.Windows.Forms.TextBox()
        Me.TextBox1 = New System.Windows.Forms.TextBox()
        Me.Button2 = New System.Windows.Forms.Button()
        Me.DataGrid1 = New System.Windows.Forms.DataGrid()
        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
        Me.Button4 = New System.Windows.Forms.Button()
        Me.Label5 = New System.Windows.Forms.Label()
        Me.Label6 = New System.Windows.Forms.Label()
        Me.Label7 = New System.Windows.Forms.Label()
        Me.Button3 = New System.Windows.Forms.Button()
        Me.TextBox5 = New System.Windows.Forms.TextBox()
        Me.TextBox6 = New System.Windows.Forms.TextBox()
        Me.TextBox7 = New System.Windows.Forms.TextBox()
        Me.Button6 = New System.Windows.Forms.Button()
        Me.DataGrid2 = New System.Windows.Forms.DataGrid()
        Me.MainMenu1 = New System.Windows.Forms.MainMenu()
        Me.MenuItem1 = New System.Windows.Forms.MenuItem()
        Me.MenuItem2 = New System.Windows.Forms.MenuItem()
        Me.MenuItem3 = New System.Windows.Forms.MenuItem()
        Me.MenuItem4 = New System.Windows.Forms.MenuItem()
        Me.MenuItem6 = New System.Windows.Forms.MenuItem()
        Me.MenuItem5 = New System.Windows.Forms.MenuItem()
        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
        Me.PictureBox2 = New System.Windows.Forms.PictureBox()
        Me.Label8 = New System.Windows.Forms.Label()
        Me.Label9 = New System.Windows.Forms.Label()
        Me.cluck = New System.Windows.Forms.Label()
        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
        Me.PictureBox3 = New System.Windows.Forms.PictureBox()
        Me.w = New System.Windows.Forms.LinkLabel()
        Me.PictureBox4 = New System.Windows.Forms.PictureBox()
        Me.PictureBox5 = New System.Windows.Forms.PictureBox()
        Me.PictureBox6 = New System.Windows.Forms.PictureBox()
        Me.PictureBox7 = New System.Windows.Forms.PictureBox()
        Me.GroupBox3 = New System.Windows.Forms.GroupBox()
        Me.Label10 = New System.Windows.Forms.Label()
        Me.GroupBox1.SuspendLayout()
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.GroupBox2.SuspendLayout()
        CType(Me.DataGrid2, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.GroupBox3.SuspendLayout()
        Me.SuspendLayout()
        '
        'GroupBox1
        '
        Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button5, Me.Label4, Me.TextBox4, Me.Label3, Me.Label2, Me.Label1, Me.Button1, Me.TextBox3, Me.TextBox2, Me.TextBox1, Me.Button2})
        Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(178, Byte))
        Me.GroupBox1.ForeColor = System.Drawing.SystemColors.ControlLightLight
        Me.GroupBox1.Location = New System.Drawing.Point(136, 112)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(384, 192)
        Me.GroupBox1.TabIndex = 0
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "Data of Membar"
        '
        'Button5
        '
        Me.Button5.Location = New System.Drawing.Point(296, 104)
        Me.Button5.Name = "Button5"
        Me.Button5.Size = New System.Drawing.Size(72, 32)
        Me.Button5.TabIndex = 17
        Me.Button5.Text = "Remove"
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(24, 144)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(72, 24)
        Me.Label4.TabIndex = 16
        Me.Label4.Text = "Address"
        '
        'TextBox4
        '
        Me.TextBox4.Location = New System.Drawing.Point(144, 144)
        Me.TextBox4.Name = "TextBox4"
        Me.TextBox4.Size = New System.Drawing.Size(104, 20)
        Me.TextBox4.TabIndex = 3
        Me.TextBox4.Text = ""
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(24, 104)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(72, 24)
        Me.Label3.TabIndex = 9
        Me.Label3.Text = "Last_name"
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(24, 64)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(72, 24)
        Me.Label2.TabIndex = 8
        Me.Label2.Text = "First_Name"
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(24, 24)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(96, 24)
        Me.Label1.TabIndex = 7
        Me.Label1.Text = "Sharing Number"
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(296, 24)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(72, 32)
        Me.Button1.TabIndex = 7
        Me.Button1.Text = "Save"
        '
        'TextBox3
        '
        Me.TextBox3.Location = New System.Drawing.Point(144, 104)
        Me.TextBox3.Name = "TextBox3"
        Me.TextBox3.Size = New System.Drawing.Size(104, 20)
        Me.TextBox3.TabIndex = 2
        Me.TextBox3.Text = ""
        '
        'TextBox2
        '
        Me.TextBox2.Location = New System.Drawing.Point(144, 64)
        Me.TextBox2.Name = "TextBox2"
        Me.TextBox2.Size = New System.Drawing.Size(104, 20)
        Me.TextBox2.TabIndex = 1
        Me.TextBox2.Text = ""
        '
        'TextBox1
        '
        Me.TextBox1.Location = New System.Drawing.Point(144, 24)
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(104, 20)
        Me.TextBox1.TabIndex = 0
        Me.TextBox1.Text = ""
        '
        'Button2
        '
        Me.Button2.Location = New System.Drawing.Point(296, 64)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(72, 32)
        Me.Button2.TabIndex = 9
        Me.Button2.Text = "Dsplay"
        '
        'DataGrid1
        '
        Me.DataGrid1.CaptionFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.DataGrid1.DataMember = ""
        Me.DataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.DataGrid1.Location = New System.Drawing.Point(536, 120)
        Me.DataGrid1.Name = "DataGrid1"
        Me.DataGrid1.Size = New System.Drawing.Size(480, 168)
        Me.DataGrid1.TabIndex = 13
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label10, Me.Button4, Me.Label5, Me.Label6, Me.Label7, Me.Button3, Me.TextBox5, Me.TextBox6, Me.TextBox7, Me.Button6})
        Me.GroupBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(178, Byte))
        Me.GroupBox2.ForeColor = System.Drawing.SystemColors.ControlLightLight
        Me.GroupBox2.Location = New System.Drawing.Point(136, 328)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(384, 176)
        Me.GroupBox2.TabIndex = 1
        Me.GroupBox2.TabStop = False
        Me.GroupBox2.Text = "Data of Sharing"
        '
        'Button4
        '
        Me.Button4.Location = New System.Drawing.Point(296, 72)
        Me.Button4.Name = "Button4"
        Me.Button4.Size = New System.Drawing.Size(72, 32)
        Me.Button4.TabIndex = 10
        Me.Button4.Text = "Dsplay"
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(24, 80)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(80, 24)
        Me.Label5.TabIndex = 10
        Me.Label5.Text = "Start Deta"
        '
        'Label6
        '
        Me.Label6.Location = New System.Drawing.Point(24, 40)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(80, 24)
        Me.Label6.TabIndex = 9
        Me.Label6.Text = "Monay"
        '
        'Label7
        '
        Me.Label7.Location = New System.Drawing.Point(24, 120)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(80, 24)
        Me.Label7.TabIndex = 8
        Me.Label7.Text = "Finsh Date "
        '
        'Button3
        '
        Me.Button3.Location = New System.Drawing.Point(296, 32)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(72, 32)
        Me.Button3.TabIndex = 8
        Me.Button3.Text = "Save"
        '
        'TextBox5
        '
        Me.TextBox5.Location = New System.Drawing.Point(144, 40)
        Me.TextBox5.Name = "TextBox5"
        Me.TextBox5.TabIndex = 4
        Me.TextBox5.Text = ""
        '
        'TextBox6
        '
        Me.TextBox6.Location = New System.Drawing.Point(144, 80)
        Me.TextBox6.Name = "TextBox6"
        Me.TextBox6.TabIndex = 5
        Me.TextBox6.Text = ""
        '
        'TextBox7
        '
        Me.TextBox7.Location = New System.Drawing.Point(144, 120)
        Me.TextBox7.Name = "TextBox7"
        Me.TextBox7.TabIndex = 6
        Me.TextBox7.Text = ""
        '
        'Button6
        '
        Me.Button6.Location = New System.Drawing.Point(296, 112)
        Me.Button6.Name = "Button6"
        Me.Button6.Size = New System.Drawing.Size(72, 32)
        Me.Button6.TabIndex = 18
        Me.Button6.Text = "Remove"
        '
        'DataGrid2
        '
        Me.DataGrid2.CaptionFont = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.DataGrid2.DataMember = ""
        Me.DataGrid2.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.DataGrid2.Location = New System.Drawing.Point(536, 328)
        Me.DataGrid2.Name = "DataGrid2"
        Me.DataGrid2.Size = New System.Drawing.Size(480, 168)
        Me.DataGrid2.TabIndex = 18
        '
        'MainMenu1
        '
        Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem4})
        '
        'MenuItem1
        '
        Me.MenuItem1.Index = 0
        Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem2, Me.MenuItem3})
        Me.MenuItem1.Text = "File"
        '
        'MenuItem2
        '
        Me.MenuItem2.Index = 0
        Me.MenuItem2.Text = "Membar New"
        '
        'MenuItem3
        '
        Me.MenuItem3.Index = 1
        Me.MenuItem3.Text = "Exit"
        '
        'MenuItem4
        '
        Me.MenuItem4.Index = 1
        Me.MenuItem4.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem6, Me.MenuItem5})
        Me.MenuItem4.Text = "About"
        '
        'MenuItem6
        '
        Me.MenuItem6.Index = 0
        Me.MenuItem6.Text = "About Programmer"
        '
        'MenuItem5
        '
        Me.MenuItem5.Index = 1
        Me.MenuItem5.Text = "Conditions Of The Sharing "
        '
        'PictureBox1
        '
        Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Bitmap)
        Me.PictureBox1.Location = New System.Drawing.Point(176, 14)
        Me.PictureBox1.Name = "PictureBox1"
        Me.PictureBox1.Size = New System.Drawing.Size(64, 56)
        Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox1.TabIndex = 17
        Me.PictureBox1.TabStop = False
        '
        'PictureBox2
        '
        Me.PictureBox2.Image = CType(resources.GetObject("PictureBox2.Image"), System.Drawing.Bitmap)
        Me.PictureBox2.Location = New System.Drawing.Point(240, 14)
        Me.PictureBox2.Name = "PictureBox2"
        Me.PictureBox2.Size = New System.Drawing.Size(560, 56)
        Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox2.TabIndex = 18
        Me.PictureBox2.TabStop = False
        '
        'Label8
        '
        Me.Label8.Font = New System.Drawing.Font("Monotype Corsiva", 15.75!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label8.ForeColor = System.Drawing.Color.Yellow
        Me.Label8.Location = New System.Drawing.Point(664, 96)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(200, 24)
        Me.Label8.TabIndex = 19
        Me.Label8.Text = "Data of Membar"
        Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'Label9
        '
        Me.Label9.Font = New System.Drawing.Font("Monotype Corsiva", 15.75!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label9.ForeColor = System.Drawing.Color.Yellow
        Me.Label9.Location = New System.Drawing.Point(680, 304)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(200, 24)
        Me.Label9.TabIndex = 20
        Me.Label9.Text = "Data of Sharing"
        Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'cluck
        '
        Me.cluck.Font = New System.Drawing.Font("Monotype Corsiva", 24.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cluck.ForeColor = System.Drawing.Color.Yellow
        Me.cluck.Location = New System.Drawing.Point(16, 22)
        Me.cluck.Name = "cluck"
        Me.cluck.Size = New System.Drawing.Size(136, 40)
        Me.cluck.TabIndex = 21
        '
        'Timer1
        '
        Me.Timer1.Enabled = True
        Me.Timer1.Interval = 1
        '
        'PictureBox3
        '
        Me.PictureBox3.Image = CType(resources.GetObject("PictureBox3.Image"), System.Drawing.Bitmap)
        Me.PictureBox3.Location = New System.Drawing.Point(16, 8)
        Me.PictureBox3.Name = "PictureBox3"
        Me.PictureBox3.Size = New System.Drawing.Size(80, 80)
        Me.PictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
        Me.PictureBox3.TabIndex = 22
        Me.PictureBox3.TabStop = False
        '
        'w
        '
        Me.w.Location = New System.Drawing.Point(736, 504)
        Me.w.Name = "w"
        Me.w.Size = New System.Drawing.Size(304, 23)
        Me.w.TabIndex = 23
        Me.w.TabStop = True
        Me.w.Text = "http://www.sportclubs.com.sa/index.html"
        '
        'PictureBox4
        '
        Me.PictureBox4.Image = CType(resources.GetObject("PictureBox4.Image"), System.Drawing.Bitmap)
        Me.PictureBox4.Location = New System.Drawing.Point(16, 111)
        Me.PictureBox4.Name = "PictureBox4"
        Me.PictureBox4.Size = New System.Drawing.Size(96, 96)
        Me.PictureBox4.TabIndex = 24
        Me.PictureBox4.TabStop = False
        '
        'PictureBox5
        '
        Me.PictureBox5.Image = CType(resources.GetObject("PictureBox5.Image"), System.Drawing.Bitmap)
        Me.PictureBox5.Location = New System.Drawing.Point(16, 213)
        Me.PictureBox5.Name = "PictureBox5"
        Me.PictureBox5.Size = New System.Drawing.Size(96, 96)
        Me.PictureBox5.TabIndex = 25
        Me.PictureBox5.TabStop = False
        '
        'PictureBox6
        '
        Me.PictureBox6.Image = CType(resources.GetObject("PictureBox6.Image"), System.Drawing.Bitmap)
        Me.PictureBox6.Location = New System.Drawing.Point(16, 418)
        Me.PictureBox6.Name = "PictureBox6"
        Me.PictureBox6.Size = New System.Drawing.Size(96, 96)
        Me.PictureBox6.TabIndex = 27
        Me.PictureBox6.TabStop = False
        '
        'PictureBox7
        '
        Me.PictureBox7.Image = CType(resources.GetObject("PictureBox7.Image"), System.Drawing.Bitmap)
        Me.PictureBox7.Location = New System.Drawing.Point(16, 315)
        Me.PictureBox7.Name = "PictureBox7"
        Me.PictureBox7.Size = New System.Drawing.Size(96, 96)
        Me.PictureBox7.TabIndex = 26
        Me.PictureBox7.TabStop = False
        '
        'GroupBox3
        '
        Me.GroupBox3.Controls.AddRange(New System.Windows.Forms.Control() {Me.cluck})
        Me.GroupBox3.Location = New System.Drawing.Point(848, 8)
        Me.GroupBox3.Name = "GroupBox3"
        Me.GroupBox3.Size = New System.Drawing.Size(168, 72)
        Me.GroupBox3.TabIndex = 28
        Me.GroupBox3.TabStop = False
        '
        'Label10
        '
        Me.Label10.Location = New System.Drawing.Point(248, 43)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(24, 16)
        Me.Label10.TabIndex = 19
        Me.Label10.Text = "SR"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(8, 19)
        Me.BackColor = System.Drawing.Color.Maroon
        Me.ClientSize = New System.Drawing.Size(1032, 533)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.GroupBox3, Me.PictureBox6, Me.PictureBox7, Me.PictureBox5, Me.PictureBox4, Me.w, Me.PictureBox3, Me.Label9, Me.Label8, Me.PictureBox2, Me.PictureBox1, Me.GroupBox2, Me.GroupBox1, Me.DataGrid1, Me.DataGrid2})
        Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(178, Byte))
        Me.ForeColor = System.Drawing.SystemColors.ControlLight
        Me.Location = New System.Drawing.Point(1040, 592)
        Me.MaximumSize = New System.Drawing.Size(1040, 592)
        Me.Menu = Me.MainMenu1
        Me.MinimumSize = New System.Drawing.Size(1040, 592)
        Me.Name = "Form1"
        Me.Text = "GYM - Sport Clubs Company"
        Me.GroupBox1.ResumeLayout(False)
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox2.ResumeLayout(False)
        CType(Me.DataGrid2, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox3.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region
    Private num As Integer
    '======================================================== الادخال الاول ======================================================
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim j1 As New System.Data.OleDb.OleDbConnection()
        Dim y As New System.Data.OleDb.OleDbCommand()
        Dim fn, ln, ad As String
        Dim num As Integer
        j1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=D:\gym.mdb"
        Try
            num = TextBox1.Text
            fn = TextBox2.Text
            ln = TextBox3.Text
            ad = TextBox4.Text
            j1.Open()
            y.Connection = j1
            y.CommandText = "insert into Member(Sharing_Num,First_Name,Last_name,Address) values (" & num & ",'" & fn & "','" & ln & "','" & ad & "') "
            y.ExecuteNonQuery()
            MsgBox("OK! saved the Data of Member")
        Catch ex As Exception
            MsgBox(ex.ToString)
        Finally
            j1.Close()
        End Try
    End Sub
    '========================================================= العرض الاول ======================================================
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim con1 As New System.Data.OleDb.OleDbConnection()
        Dim mycommand1 As New System.Data.OleDb.OleDbCommand()
        Dim myDA1 As New System.Data.OleDb.OleDbDataAdapter()
        Dim myds1 As DataSet = New DataSet()
        con1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=D:\gym.mdb"
        Try
            con1.Open()
            mycommand1.CommandText = ("Select * from Member")
            mycommand1.Connection = con1
            myDA1.SelectCommand = mycommand1
            myDA1.Fill(myds1, "Member")
            With DataGrid1
                .DataSource = myds1
                .DataMember = "Member"
                .CaptionText = .DataMember
            End With
        Catch ex As Exception
            MessageBox.Show("Failed to connect to data source!")

        Finally
            con1.Close()
        End Try
    End Sub
    '======================================================== المسح الاول ========================================================
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim con1 As New System.Data.OleDb.OleDbConnection()
        Dim mycommand1 As New System.Data.OleDb.OleDbCommand()
        Dim myDA1 As New System.Data.OleDb.OleDbDataAdapter()
        Dim myds1 As DataSet = New DataSet()
        con1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=D:\gym.mdb"
        Try
            con1.Open()
            mycommand1.CommandText = ("delete  from Member")
            mycommand1.Connection = con1
            myDA1.SelectCommand = mycommand1
            myDA1.Fill(myds1, "Member")
            With DataGrid1
                .DataSource = myds1
                .DataMember = "Member"
                .CaptionText = .DataMember
            End With
        Catch ex As Exception
            MessageBox.Show("The data of Member has been deleted!")

        Finally
            con1.Close()
        End Try
    End Sub
    '======================================================== الادخال الثاني=====================================================
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim j2 As New System.Data.OleDb.OleDbConnection()
        Dim yy As New System.Data.OleDb.OleDbCommand()
        Dim Sdeta, Fdeta As String
        Dim mony As Integer
        j2.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=D:\gym.mdb"
        Try
            mony = TextBox5.Text
            Sdeta = TextBox6.Text
            Fdeta = TextBox7.Text
            num = TextBox1.Text
            j2.Open()
            yy.Connection = j2
            yy.CommandText = "insert into DataOfSharing(Sharing_Num,mony,Sdeta,Fdeta ) values (" & num & "," & mony & ",'" & Sdeta & "','" & Fdeta & "') "
            yy.ExecuteNonQuery()
            MsgBox("OK! saved the Data of Sharing")
        Catch ex As Exception
            MsgBox(ex.ToString)
        Finally
            j2.Close()
        End Try
    End Sub
    '======================================================== العرض الثاني =====================================================
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim con As New System.Data.OleDb.OleDbConnection()
        Dim mycommand As New System.Data.OleDb.OleDbCommand()
        Dim myDA As New System.Data.OleDb.OleDbDataAdapter()
        Dim myds As DataSet = New DataSet()
        con.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=D:\gym.mdb"
        Try
            con.Open()
            mycommand.CommandText = ("Select * from DataOfSharing")
            mycommand.Connection = con
            myDA.SelectCommand = mycommand
            myDA.Fill(myds, "DataOfSharing")

            With DataGrid2
                .DataSource = myds
                .DataMember = "DataOfSharing"
                .CaptionText = .DataMember
            End With

        Catch ex As Exception
            MessageBox.Show("Failed to connect to data source!")
        Finally
            con.Close()
        End Try
    End Sub
    '======================================================== المسح الثاني ========================================================
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Dim con As New System.Data.OleDb.OleDbConnection()
        Dim mycommand As New System.Data.OleDb.OleDbCommand()
        Dim myDA As New System.Data.OleDb.OleDbDataAdapter()
        Dim myds As DataSet = New DataSet()
        con.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=D:\gym.mdb"
        Try
            con.Open()
            mycommand.CommandText = ("delete  from DataOfSharing")
            mycommand.Connection = con
            myDA.SelectCommand = mycommand
            myDA.Fill(myds, "DataOfSharing")

            With DataGrid2
                .DataSource = myds
                .DataMember = "DataOfSharing"
                .CaptionText = .DataMember
            End With

        Catch ex As Exception
            MessageBox.Show("The data of Sharing has been deleted!")
        Finally
            con.Close()
        End Try
    End Sub
    '======================================================== شروط الاشترالك =====================================================
    Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
        MessageBox.Show("1- The member should be at least 18 years old" _
        & vbCrLf & "2- Firstly pay the value for a period time you want" _
        & vbCrLf & "3- Protect the health club's possessions" _
        & vbCrLf & "4- The club is irresponsible for missing personl possessions" _
        & vbCrLf & "5- The club isn't refund", " ----------- Heath Club's Roles --------- ")
    End Sub
    '================================================== المعلومات الشخصيه بالمبرمج ================================================
    Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click
        MessageBox.Show("This program written by *** Turki Mohammed AL-aboodi *** " & vbCrLf & "Number : 425113044", "About Programmer ", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub
    '======================================================== مسح الحقول ========================================================
    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox7.Text = ""
    End Sub
    '======================================================== الخروج ========================================================
    Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
        MessageBox.Show("This program written by *** Turki Mohammed AL-aboodi *** " & vbCrLf & "Number : 425113044", "About Programmer ", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Application.Exit()
    End Sub
    '======================================================== الموقع ========================================================
    Private Sub w_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles w.LinkClicked
        w.LinkVisited = True
        System.Diagnostics.Process.Start("IExplore", "http://www.sportclubs.com.sa/index.html")
    End Sub
    '======================================================== الساعه ========================================================
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        cluck.Text = DateTime.Now.ToLongTimeString
    End Sub
    '======================================================== الترحيب ========================================================
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MessageBox.Show("Welcome To My GYM ...! ", "    WELCOME  ", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
    End Sub
End Class