01.Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
02. CorralBindingSource.MovePrevious()
03. End Sub
04.
05. Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
06. CorralBindingSource.MoveNext()
07. End Sub
08.
09. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
10. CorralBindingSource.AddNew()
11. End Sub
12.
13. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
14. CorralBindingSource.EndEdit()
15. CorralTableAdapter.Update(DatabasProjectDataSet.Corral)
16. End Sub
17.
18. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
19. CorralBindingSource.RemoveCurrent()
20. End Sub
21.
22. Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
23. Me.Close()
24. End Sub
25.
26. Private Sub CorralIDComboBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CorralIDComboBox.SelectedIndexChanged
27. Dim cor As String = CorralIDComboBox.Text
28. CorralIDComboBox.Items.Add(CorralIDComboBox.Text)
29. End Sub
30.End Class
