vb.net中窗体改变的问题，选择性隐藏。怎么弄？？？？

[anlianshangheiye]

在一个窗体中有一个复选框C1，还有一个容器gr1.选中复选框gr1显示，不选gr1消失。当gr1消失，以前在gr1控件下的内容会向上移动。当gr1不消失时，gr1控件下方的内容，回到原来的位置。

[gxingmin]

把gr1下方的所有控件放在Panel1里

   Private Sub C1_CheckedChanged(sender As Object, e As EventArgs) Handles C1.CheckedChanged
        If (C1.Checked) Then
            gr1.Visible = True
            Panel1.Top += gr1.Height
        Else
            gr1.Visible = False
            Panel1.Top -= gr1.Height
        End If
    End Sub