Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ' imposto la lunghezza
        Tbl1.Width = 100
    End Sub

    Protected Sub Btn1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btn1.Click
        ' reimposto la lunghezza
        Tbl1.Width = Tbl1.Width * 3
    End Sub