from窗口可以做增加高度向上展开的效果不？该怎么处理

from窗口可以做增加高度向上展开的效果不？
看题可能没明白我什么意思，比如在纵坐标0和20各有一个高度为10的按钮，而form的高度是10，怎样才能让form显示的是纵坐标为20的那个按钮。
我需要实现的效果是平时只显示纵坐标20，高度为10的部分，在需要的时候向上展开，显示出纵坐标0，高度30的部分。
向下展开只需要控制form的高度即可，向上展开怎么做呢？

------解决方案--------------------
除了高度还要控制top
------解决方案--------------------
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim k(Me.Controls.Count) As String
Dim i = 0
For Each j As Control In Me.Controls
k(i) = j.Location.Y
i += 1
Next
Dim c As Integer = k(0)
For m As Integer = 0 To UBound(k)
If c < k(m) Then
c = k(m)
End If
Next
Me.Height = CInt(c) + 100
End Sub

你想要的是这个?