Private Sub RechnenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal _
  e As System.EventArgs) Handles RechnenToolStripMenuItem.Click
 
    If IsFormAlreadyLoaded2("AuftragBearbeiten", Me, _
      "TabControlAuftragBearbeiten", "TabPageBerechnen") = False Then
        AuftragBearbeiten1 = New AuftragBearbeiten()
        AuftragBearbeiten1.MdiParent = Me
        AuftragBearbeiten1.Show()
    End If
    AuftragBearbeiten1.SetTabPageOnTabControl("TabPageBerechnen")
 
End Sub