''''''''''''''FORM CARACTERISTICAS

Public Class FormAnadirCaracteristica
    Public caller As GrupoPiezas


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click


        caller.adicionarcaracteristica(TextBox1.Text, TextBox2.Text)
        Me.Close()
    End Sub


End Class


'''''''''''''GRUPOPIEZAS FUNCTIONS CONTEXT MENU

 Private Sub AnãdirCaracterísticaToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnãdirCaracterísticaToolStripMenuItem.Click

        FormAnadirCaracteristica.caller = Me
        FormAnadirCaracteristica.Show()


    End Sub

    Public Function removecaracteristica(caract As Caracteristica)
        Me.Controls.Remove(caract)
        caract = Nothing
    End Function


    Private Sub GrupoPiezas_MouseClick(sender As Object, e As MouseEventArgs) Handles Me.MouseClick
        If e.Button = MouseButtons.Right Then


            ContextMenuStrip1.Show(MousePosition.X, MousePosition.Y)

        End If
    End Sub
End Class


''''''''''''CARACTERISTICA FUNCTIONS CONTEXT MENU

 Private Sub RemoverCaracteristicaToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RemoverCaracteristicaToolStripMenuItem.Click
        Dim gr As New GrupoPiezas
        gr = Me.Parent

        gr.removecaracteristica(Me)
    End Sub

    Private Sub AñadirCaracteristicaToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AñadirCaracteristicaToolStripMenuItem.Click
        FormAnadirCaracteristica.caller = Me.Parent
        FormAnadirCaracteristica.ShowDialog()
    End Sub

    Private Sub Caracteristica_MouseClick(sender As Object, e As MouseEventArgs) Handles Me.MouseClick
        If e.Button = MouseButtons.Right Then
            ContextMenuStrip1.Show()
        End If
    End Sub

    Private Sub nombre_MouseClick(sender As Object, e As MouseEventArgs) Handles nombre.MouseClick
        If e.Button = MouseButtons.Right Then
            ContextMenuStrip1.Show()
        End If
    End Sub