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

    Dim magazzino As New clsMagaz

    magazzino.descr = "pippo"
    magazzino.articolo.codArt = "700600"
    magazzino.articolo.gruppo = "ABC"

    MessageBox.Show(magazzino.descr)
    MessageBox.Show(magazzino.articolo.codArt)
    MessageBox.Show(magazzino.articolo.gruppo)

  End Sub