Dim WithEvents web1 As VBControlExtender
Dim WithEvents tvw1 As VBControlExtender
Private Sub Command1_Click()'add a webbrowser
'Licenses.Add "SHELL.EXPLORER.2" '出错
Set web1 = Me.Controls.Add("SHELL.EXPLORER.2", "web1", Me)
web1.Visible = True
web1.Move 0, 0, 4000, 4000
web1.object.Navigate "http://community.csdn.net/Expert/topic/3273/3273662.xml?temp=.6609766", 0
End Sub
Private Sub Command2_Click()'add a treeview
Licenses.Add "MSComctlLib.TreeCtrl"
Set tvw1 = Controls.Add("MSComctlLib.TreeCtrl", "tvw1", Me)
tvw1.Move 1, 1, 4000, 4000
tvw1.object.linestyle = 1
For i = 0 To 10
tvw1.object.nodes.Add , , Chr(i + 65), Chr(i + 65)
Next i
tvw1.Visible = True
End Sub