Public Class Form1

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Do While Panel1.Width < 564
Panel1.Width = Panel1.Width + 1
Loop
End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Do While Panel1.Width > 71
Panel1.Width = Panel1.Width - 1
Loop
End Sub
End Class