无法在窗体绘制控件

[jhonsonzhang]

点击按钮，改变某一按钮的形状
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim rec As New Rectangle(20, 20, 100, 600)
Me.Button1.Region = New Region(rec)
Me.Button1.Show()
end sub

这样button1居然变成了一条线，无论怎么改rec,始终是一条长度不变的一条线。

又试了drawing.2d的方法
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim rec As New Rectangle(20, 20, 100, 600)
Dim rec As New Rectangle(20, 20, 100, 600)
Dim gpath As New GraphicsPath
gpath.AddRectangle(rec)

Me.Button1.Region = New Region(gpath)
Me.Button1.Show()
end sub

结果还是一条线，郁闷死了。

[古今多少事]

Dim rec As New Rectangle(20, 10, 100, 600)