如上图所示，如何点击右下角的按钮可以在界面上增加按钮和链接，有源码的老师，麻烦你们贴出来学习一下，点击增加按钮和链接效果如下图所示

[ 本帖最后由 事业男儿 于 2012-5-12 11:16 编辑 ]

小飞侠你跟我说的代码倒是有点像,但是关闭界面后按钮就消失了,再说,也没有我说的那个增加名字和链接的对话框,我很笨麻烦说详细点.谢谢!Private Sub cmdBtn_Click(Index As Integer)
Dim btn     As CommandButton
Dim iIndex     As Integer
iIndex = cmdBtn.Count
If iIndex <= 32767 Then
Load cmdBtn(iIndex)
Set btn = cmdBtn(iIndex)
With btn
.Top = cmdBtn(iIndex - 1).Top + 620
.Caption = "Command " & iIndex + 1
.Visible = True
End With
Set btn = Nothing
End If
End Sub