vb6菜单

'添加插件
Private Sub addPlugin_Click()
    '加载新增菜单
    Load muPlus(muPlus.Count + 1)
    muPlus(muPlus.Count + 1).Caption = Value
    muPlus(muPlus.Count + 1).Visible = True
End Sub

Private Sub addPlugin_Click()

    'Dim start As Integer '数组下界
    'start = LBound(muPlusKey()) '数组下界
    
    Dim finish As Integer '数组上界
    finish = UBound(muPlusKey())
    Call newMeau(finish + 1, name)
End Sub
Private Sub newEeau(ByVal key As String, ByVal value As String)
    '加载新增菜单
    Load muPlus(key)
    muPlus(key).Caption = Value
    muPlus(key).Visible = True

End Sub