Private Sub TuttiToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TuttiToolStripMenuItem.Click
        'Visualizza la rubrica completa
        PanelloCentrale.Controls.Clear()
        PanelloCentrale.Controls.Add(New ucRubricaLista With {.Width = Panel1.Width, .Height = Panel1.Height})
    End Sub

Private Sub Panel1_SizeChanged(sender As Object, e As EventArgs) Handles Panel1.SizeChanged
        If CType(sender, Panel).Controls.Count > 0 Then
            CType(sender, Panel).Controls(0).Width = CType(sender, Panel).Width
            CType(sender, Panel).Controls(0).Height = CType(sender, Panel).Height
        End If
End Sub