怎样用vb.net在程序里实现网页那样的点击展开效果,该如何解决

怎样用vb.net在程序里实现网页那样的点击展开效果
我想在程序里实现象网页那样的点击展开效果。

在网页上是可以用这个函数实现的，可怎么也看不懂它说什么。哪位大虾帮看看，说一下在程序里怎样用vb.net实现。
这函数原在http://js.alixixi.com/read_80222_164.html，可运行看其效果。

function openShutManager(oSourceObj,oTargetObj,shutAble,oOpenTip,oShutTip){
var sourceObj = typeof oSourceObj == "string" ? document.getElementById(oSourceObj) : oSourceObj;
var targetObj = typeof oTargetObj == "string" ? document.getElementById(oTargetObj) : oTargetObj;
var openTip = oOpenTip || "";
var shutTip = oShutTip || "";
if(targetObj.style.display!="none"){
  if(shutAble) return;
  targetObj.style.display="none";
  if(openTip && shutTip){
  sourceObj.innerHTML = shutTip; 
  }
} else {
  targetObj.style.display="block";
  if(openTip && shutTip){
  sourceObj.innerHTML = openTip; 
  }
}
}

[解决办法]
C/S程序？

直接设置控件是否可见即可！然后调整控件的位置。
[解决办法]
这段javascript只能在网页程序用啊，在form程序里用dropdown或其他控件代替不好吗？？
[解决办法]
你还可以动态加载一个容器，点击button时自动加载该容器
[解决办法]
楼主说的是这个？

VB.NET code

Public Class Form1    Dim w As Integer, h As Integer    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        Me.DoubleBuffered = True        'w = Me.Width        h = Me.Height        'Me.Width = 0        Me.Height = 0        Timer1.Interval = 10        Timer1.Enabled = True    End Sub    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick        'If (Me.Width <= w) Then Me.Width = Me.Width + 1        If (Me.Height <= h) Then Me.Height = Me.Height + 1        Me.Update()        If (Me.Width = w) Then Timer1.Enabled = False    End SubEnd Class