带标签页的浏览器（VB浏览器源代码）

skin_styler:18 blue0 ,2, 淡蓝16，17，18 black 4，9，14， 淡紫 5 ，13 草绿黑7 草绿11 22 青色8 ，12 MAC 19 xp 21 Private Sub NButtonG_ADD() '动态添加button组件， Dim i As Long For i = 1 To 5 Load NButtonG(i) NButtonG(i).Move NButtonG(0).Width, 0 + NButtonG(0).Height * i NButtonG(i).Visible = True Next i End Sub '手动增加toolbar 按钮控件 Dim NewButton As NiceButton Dim iIndex As Integer iIndex = NButtonG.Count For iIndex = 1 To 5 Load NButtonG(iIndex) Set NewButton = NButtonG(iIndex) With NewButton .Left = NButtonG(iIndex - 1).Top + 375 .Caption = "Command" & iIndex + 1 .Visible = True End With ' Set NewButton = Nothing Next