Public Class Form1
 
    Private Sub NeuesFensterToolStripMenuItem_Click(ByVal sender As _
      System.Object, ByVal e As System.EventArgs) Handles _
      NeuesFensterToolStripMenuItem.Click
        Dim m_objWindow As New Form
        m_objWindow.MdiParent = Me
        m_objWindow.Show()
 
        Me.BindingNavigatorMoveNextItem_Click(sender, e)
    End Sub
 
    Private Sub BindingNavigatorMoveNextItem_Click(ByVal sender As _
      System.Object, ByVal e As System.EventArgs) Handles _
      BindingNavigatorMoveNextItem.Click
        MessageBox.Show("Hello World")
    End Sub
 
End Class

fg viperbone