Private Sub Forms_close()
        If frm_00 IsNot Nothing Then frm_00.Close()
        If frm_01 IsNot Nothing Then frm_01.Close()
        If frm_02 IsNot Nothing Then frm_02.Close()
        If frm_03 IsNot Nothing Then frm_03.Close()
    End Sub
 
    Private Sub VereinToolStripMenuItem_Click(sender As Object, e As EventArgs) _
      Handles VereinToolStripMenuItem.Click
        Call Forms_close()
        frm_00 = New frm_Config_Club
        SetParent(frm_00.Handle, Me.spc_KassaBook.Panel2.Handle)
        frm_00.Location = New Point(0, 0)
        frm_00.Size = spc_KassaBook.Panel2.Size
        frm_00.Show()
    End Sub