Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Button1.Text = "Advanced >>" Then Me.Size = New Size(500, 500) Button1.Text = "Basic <<" Else Me.Size = New Size(300, 300) Button1.Text = "Advanced >>" End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Button1.Text = "Advanced >>" End Sub>Hello,