Private Sub Button1_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click
 
    'Autosize = true     AutoSizeMode  = GrowAndShrink
 
    Dim ltext As String = "long 0000 0000 000 0000 000000 0000 000000"
 
    If Button1.Text.StartsWith(ltext) Then
       Button1.Text = "short"
    Else
       Button1.Text = ltext
    End If
 
    Button1.Text &= " " & CStr(Button1.Size.Width)
End Sub