[vb.net] dimensionemento automatico e allineamento

[MItaly]

Inserisci nell'evento TextChanged della label in questione il seguente codice:

        If Me.Controls.Count > 0 Then
            Dim typedSender As Label = DirectCast(sender, Label)
            Static firstPos As Integer = typedSender.Left + typedSender.Width
            typedSender.Left = firstPos - typedSender.Width
        End If

.