Public Class BindingControl
 
    Public Event MoveFirst(sender As Object, e As EventArgs)
    Public Event MoveLast(sender As Object, e As EventArgs)
 
    Private Sub BindingNavigatorMoveFirstItem_Click(sender As Object, e As _
      EventArgs) _
        Handles BindingNavigatorMoveFirstItem.Click
 
        RaiseEvent MoveFirst(Me, EventArgs.Empty)
 
    End Sub
 
    Private Sub BindingNavigatorMoveLastItem_Click(sender As Object, e As _
      EventArgs) _
        Handles BindingNavigatorMoveLastItem.Click
 
        RaiseEvent MoveLast(Me, EventArgs.Empty)
    End Sub
 
    'usw ....
End Class