Selam arkadaşlar ;
1.Aşağıdaki şekilde bir form oluşturuyorum.
*********************************************
Dim form As New Form
Me.Hide()
form.Size = New System.Drawing.Size(600, 600)
form.Text = "Konsol Tipi İstinat Duvarı"
form.Show()
form.Enabled = True
*********************************************
2.Daha sonra bu formun uzerinde komut ile bir buton oluşturuyorum.
**********************************************
Dim GenisletButonu As New Button
With GenisletButonu
.Text = "Genişlet"
.Height = 20
.Width = 70
.Location = New Point(form.Width - GenisletButonu.Width - 20, form.Height - GenisletButonu.Height - 40)

End With
form.Controls.Add(GenisletButonu)

AddHandler GenisletButonu.Click, AddressOf GenisletDaralt
**************************************
3.Bu butonun click olayına şunu yazıyorum
*************************************
Sub GenisletDaralt(ByVal sender As Button, ByVal e As EventArgs)

Select sender.Text
Case "Genişlet"
sender.Text = "Daralt"
Me.Width = 1200
Case "Daralt"
sender.Text = "Genişlet"
Me.Width = 600

End Select
End Sub
***********************************

Sorunum şu;butona tıkladığımda buton ismini değiştirme komutu calışıyor ancak formun genişliği değişmiyor. "Me" ile olmayacağını duşunuyorum ancak sorunu cozemiyorum.
__________________