Imports System.Windows.Forms
 
Public Class frmMain
 
 
 
 
    Public m_ChildFormNumber As Integer = 0
 
    Public Sub frmMain_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        init()
 
        mc_AGVertrieb_obj.MdiParent = Me
        mc_AGVertrieb_obj.Show()
 
 
 
        mc_Artikel_obj.MdiParent = Me
        mc_Artikel_obj.Show()
 
 
    End Sub
 
    Public Sub TSBArtikel_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TSBArtikel.Click
 
        mc_Artikel_obj.MdiParent = Me
        mc_Artikel_obj.Show()
    End Sub
 
    Public Sub TSBAGVertrieb_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TSBAGVertrieb.Click
 
        mc_AGVertrieb_obj.MdiParent = Me
        mc_AGVertrieb_obj.Show()
    End Sub
 
    Public Sub MenuStrip_ItemClicked(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.ToolStripItemClickedEventArgs) Handles _
      MenuStrip.ItemClicked
 
    End Sub
 
    Public Sub TSBADaten_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TSBADaten.Click
        AktANR = 0
 
        mc_ADaten_obj.MdiParent = Me
        mc_ADaten_obj.Show()
    End Sub
 
    Public Sub frmMain_ParentChanged(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.ParentChanged
 
    End Sub
 
    Private Sub AnzeigenToolStripMenuItem_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles AnzeigenToolStripMenuItem.Click
 
    End Sub
 
    Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
        Me.Hide()
        End
    End Sub
End Class