Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Button1.Text = "Agrandir" Then Button1.Text = "Minimise" Me.Height = "300" Me.Width = "500" Else Button1.Text = "Agrandir" Me.Height = "200" Me.Width = "300" End If End Sub
Dim o As Boolean = True If o = True Then o = False Me.Height = "300" Me.Width = "500" Else o = True Me.Height = "200" Me.Width = "300" End If