Dim TCS As CSDN.TCS
Dim App As CSDN.Tcs_Application
Sub Test()
    Call Login
    
    Dim ApActions As CSDN.CSDNActions
    Set ApActions = App.Parameters.ActionList
    Cells(1, 1).Value = "Name"
    Cells(1, 2).Value = "Caption"
    Cells(1, 3).Value = "Enabled"
    For I = 1 To ApActions.Count
        Cells(2 + I, 1).Value = ApActions.Actions(I - 1).Name
        Cells(2 + I, 2).Value = ApActions.Actions(I - 1).Caption
        Cells(2 + I, 3).Value = ApActions.Actions(I - 1).Enabled
    Next
    Set Spr = Nothing
    
End Sub
Sub Login()
    
    If TCS Is Nothing Then Set TCS = CreateObject("CSDN.TCS")
    
    If App Is Nothing Then Set App = TCS.Login 
    
End Sub