Sub Button1_Click
If pnlLabel.Top == 0 Then ' If is 0 it means that the label is already "full size"
pnlLabel.SetLayoutAnimated(2000, pnlLabel.Left, pnlLabel.Tag, pnlLabel.Width, Panel1.Height - pnlLabel.Tag)
Else ' else it means it is in "normal state", so i expand it
pnlLabel.SetLayoutAnimated(2000, pnlLabel.Left, 0, pnlLabel.Width, Panel1.Height)
End If
Label1.SetLayoutAnimated(2000, Label1.Left, 0, Label1.Width, pnlLabel.Height) 'Animate the label too at the same time
End Sub