[倾家荡产求助]VB编写程序，动态添加控件并保存设置

参看音速启动

动态加载参考http://hi.baidu.com/xiaoyufen/blog/item/c20ddcc41901abca38db495b.html/cmtid/3a98b3fb2ea409244e4aea78

保存设置可写ini文件

还有就是实现拖放 

给你一点参考

Private Sub Command1_Click()

SSTab1.Tabs = SSTab1.Tabs + 1

SSTab1.TabCaption(SSTab1.Tabs - 1) = InputBox("请输入自定义类别名称")

End Sub

Private Sub Form_Load()

SSTab1.Tabs = 3

SSTab1.TabsPerRow = 3

SSTab1.TabCaption(0) = "系统软件"

SSTab1.TabCaption(1) = "网络软件"

SSTab1.TabCaption(2) = "多媒体软件"

End Sub

Private Sub List1_DblClick(Index As Integer)

Shell "Explorer " & List1(SSTab1.Tab).List(List1(SSTab1.Tab).ListIndex), vbNormalFocus

End Sub

Private Sub SSTab1_OLEDragDrop(Data As TabDlg.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, Y As Single)

List1(SSTab1.Tab).AddItem Data.Files(1)

End Sub

选项卡控件在microsoft tabbed dialog control

list1是控件数组

设置sstab1的ole属性

做控件数组就行了，增加只要load
如果不用数组 , createobject("vb.command")