Помогите пожалуйста выполнить задание

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: данная строка кода позволяет загрузить данные в таблицу "_ДЛЯ_ПРОГРАММЫDataSet.Основная". При необходимости она может быть перемещена или удалена.
       Me.ОсновнаяTableAdapter.Fill(Me._ДЛЯ_ПРОГРАММЫDataSet.Основная)
        'TODO: данная строка кода позволяет загрузить данные в таблицу "_ДЛЯ_ПРОГРАММЫDataSet.Вспомогательная". При необходимости она может быть перемещена или удалена.
       Me.ВспомогательнаяTableAdapter.Fill(Me._ДЛЯ_ПРОГРАММЫDataSet.Вспомогательная)

    End Sub
    Private Sub ОсновнаяBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОсновнаяBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.ОсновнаяBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me._ДЛЯ_ПРОГРАММЫDataSet)
    End Sub
    Private Sub ОсновнаяDataGridView_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles ОсновнаяDataGridView.CellContentClick
    End Sub

    Private Sub Panel_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        If Control.MouseButtons = Windows.Forms.MouseButtons.Left Then
            CType(sender, Panel).Left = Control.MousePosition.X - Me.Left - CType(sender, Panel).Width
            CType(sender, Panel).Top = Control.MousePosition.Y - Me.Top - CType(sender, Panel).Height
        End If
    End Sub

    Private Sub CheckedListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub RectangleShape1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub ВспомогательнаяDataGridView_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)

    End Sub

    Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
        AddHandler (Panel1.MouseMove), AddressOf Panel_MouseMove
        Me.Controls.Add(Panel1)
    End Sub
    Private Sub Panel2_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
        AddHandler (Panel2.MouseMove), AddressOf Panel_MouseMove
        Me.Controls.Add(Panel2)
    End Sub
    Private Sub Panel3_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
        AddHandler (Panel3.MouseMove), AddressOf Panel_MouseMove
        Me.Controls.Add(Panel3)

    End Sub
    Private Sub MonthCalendar1_DateChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DateRangeEventArgs)

    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub PictureBox1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub RectangleShape1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub ОсновнаяBindingNavigator_RefreshItems(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОсновнаяBindingNavigator.RefreshItems

    End Sub

End Class