VS 2010 i have encountered this errors please help.key word is not valid as an identifier.

errors .1 keyword is not a valid as an identifier
2 'Class' statement must end with a matching 'End Class'. here is my code .im supposed to present it today please
help

Public Class frmregister

Private Sub BasicLabel_Click(ByVal sender As Object, ByVal e As EventArgs)
Throw New NotImplementedException
End Sub

Private Sub DepartmentLabel_Click(ByVal sender As Object, ByVal e As EventArgs)
Throw New NotImplementedException
End Sub

Private Sub GenderLabel_Click(ByVal sender As Object, ByVal e As EventArgs)
Throw New NotImplementedException
End Sub

Private Sub PlantIDLabel_Click(ByVal sender As Object, ByVal e As EventArgs)
Throw New NotImplementedException
End Sub

Private Sub PositionLabel_Click(ByVal sender As Object, ByVal e As EventArgs)
Throw New NotImplementedException
End Sub

End Class

Namespace Mynamespace

End Namespace
Class namespace<>
Private Sub GenPayFinalBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GenPayFinalBindingNavigatorSaveItem.
Me.GenPayFinalBindingSource.EndEdit_
Me.TableAdapterManager.UpdateAll(Me.GenerallPayrollDataSet)
End Sub

sub
End Sub
End Namespace







Namespace My

Private Sub frmregister_Load(ByVal sender As System.Object, ByVal System As EventArgs, ByVal (Handles), ByVal MyBase, ByVal (Load)
'TODO: This line of code loads data into the 'GenerallPayrollDataSet.GenPayFinal' table. You can move, or remove it, as needed.
Me.GenPayFinalTableAdapter.Fill(Me.GenerallPayrollDataSet.GenPayFinal)
'TODO: This line of code loads data into the 'GenerallPayrollDataSet.GenPayFinal' table. You can move, or remove it, as needed.
Me.GenPayFinalTableAdapter.Fill(Me.GenerallPayrollDataSet.GenPayFinal)
End Sub

Private Function GenPayFinalTableAdapter() As Object
Throw New NotImplementedException
End Function

Private Function GenerallPayrollDataSet() As Object
Throw New NotImplementedException
End Function


Sub ()
End Sub
End Namespace
Private Sub GenPayFinalBindingNavigatorSaveItem_Click_1(ByVal sender As System.Object,(ByVal e As System.EventArgs)())
Me.Validate()
Me.GenPayFinalBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.GenerallPayrollDataSet)

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, (ByVal e As System.EventArgs)()) Handles Button5.Click
If Len(Trim(PlantIDTextBox.Text)) = 0 Then
MessageBox.Show("Please enter employee Plant ID", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
PlantIDTextBox.Focus()
Exit Sub
End If

If Len(Trim(EmployeeNameTextBox.Text)) = 0 Then
MessageBox.Show("Please enter employee name", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
EmployeeNameTextBox.Focus()
Exit Sub
End If

If Len(Trim(AddressTextBox.Text)) = 0 Then
MessageBox.Show("Please enter employee Address", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
AddressTextBox.Focus()
Exit Sub
End If

If Len(Trim(ContactNumberTextBox.Text)) = 0 Then
MessageBox.Show("Please enter employee Contact Number", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
ContactNumberTextBox.Focus()
Exit Sub
End If

If Len(Trim(GenderTextBox.Text)) = 0 Then
MessageBox.Show("Please enter employee Email", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
GenderTextBox.Focus()
Exit Sub
End If




If Len(Trim(DateofOriginDateTimePicker.Text)) = 0 Then
MessageBox.Show("Please enter employee Date of Origin", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
DateofOriginDateTimePicker.Focus()
Exit Sub
End If

If Len(Trim(BasicTextBox.Text)) = 0 Then
MessageBox.Show("Please enter employee Basic Salary", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
BasicTextBox.Focus()
Exit Sub
End If

Try
Me.Validate()
Me.GenPayFinalBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.GenerallPayrollDataSet)
MessageBox.Show("Successfully Added")
EmployeeNameTextBox.Focus()
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

Private Sub btnLogin_Click(""ByVal sender As System.Object, ByVal e As System.EventArgs"") Handles btnLogin.Click))"

If Len(Trim(PlantIDTextBox.Text)) = 0 Then
MessageBox.Show("Please enter employee ID", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
PlantIDTextBox.Focus()
Exit Sub
End If

If Len(Trim(EmployeeNameTextBox.Text)) = 0 Then
MessageBox.Show("Please enter employee name", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
EmployeeNameTextBox.Focus()
Exit Sub
End If

If Len(Trim(AddressTextBox.Text)) = 0 Then
MessageBox.Show("Please enter employee Address", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
AddressTextBox.Focus()
Exit Sub
End If

If Len(Trim(ContactNumberTextBox.Text)) = 0 Then
MessageBox.Show("Please enter employee Contact Number", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
ContactNumberTextBox.Focus()
Exit Sub
End If

If Len(Trim(GenderTextBox.Text)) = 0 Then
MessageBox.Show("Please enter Gender", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
GenderTextBox.Focus()
Exit Sub
End If



If Len(Trim(DateofOriginDateTimePicker.Text)) = 0 Then
MessageBox.Show("Please enter employee Date of Employement", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
DateofOriginDateTimePicker.Focus()
Exit Sub
End If

If Len(Trim(BasicTextBox.Text)) = 0 Then
MessageBox.Show("Please enter employee Basic Salary", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
BasicTextBox.Focus()
Exit Sub
End If

Try
If MsgBox("Do you want to add new employee?", vbYesNo + vbQuestion) = vbYes Then
GenPayFinalBindingSource.AddNew()
Me.TableAdapterManager.UpdateAll(Me.GenerallPayrollDataSet)
MessageBox.Show("You can now input...")
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

Private Sub btnDeleteJHS_Click(ByVal sender As System.Object,(ByVal e As System.EventArgs) Handles btnDeleteJHS.Click"")
Try
If PlantIDTextBox.Text = "" Then
MessageBox.Show("Please select employee id", "Entry", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Exit Sub
End If
If PlantIDTextBox.Text.Count > 0 Then
If MessageBox.Show("Do you really want to delete the record?" & vbCrLf & "You can not restore the record" & vbCrLf & "It will delete record permanently" & vbCrLf & "related to selected employee", "Warning!!!", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = Windows.Forms.DialogResult.Yes Then
GenPayFinalBindingSource.RemoveCurrent()
Me.TableAdapterManager.UpdateAll(Me.GenerallPayrollDataSet)
End If
End If

Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try

End Sub
Namespace

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click_
BasicTextBox.Text = FormatCurrency(BasicTextBox.Text)
txtReceipt1.Text = ""
txtReceipt1.AppendText("" + vbNewLine)
txtReceipt1.AppendText("" + vbNewLine)
txtReceipt1.AppendText("" + vbNewLine)
txtReceipt1.AppendText("" + vbNewLine)
txtReceipt1.AppendText("" + vbNewLine)
txtReceipt1.AppendText("" + vbNewLine)
txtReceipt1.AppendText("" + vbNewLine)
txtReceipt1.AppendText("Employee Name: " + vbTab & EmployeeNameTextBox.Text + vbNewLine)
txtReceipt1.AppendText("Address: " + vbTab + vbTab & AddressTextBox.Text + vbNewLine)
txtReceipt1.AppendText("Contact: " + vbTab + vbTab & ContactNumberTextBox.Text + vbNewLine)
txtReceipt1.AppendText("Email: " + vbTab + vbTab + vbTab & GenderTextBox.Text + vbNewLine)
txtReceipt1.AppendText("Date of Employement: " + vbTab + vbTab & DateofOriginDateTimePicker.Text + vbNewLine)

txtReceipt1.AppendText("" + vbNewLine)
txtReceipt1.AppendText("= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = " + vbNewLine)
txtReceipt1.AppendText(" " + vbNewLine)
txtReceipt1.AppendText("= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = " + vbNewLine)

PrintPreviewDialog1.ShowDialog()

End Sub

End Namespace
sub

End Sub