Event Handling of dynamically added controls

Hi

How can I do event handling (Click) of dynamically added controls in SWX VBA ?

this is how I add a command button:

    Dim Com As CommandButton
    Set Com = Controls.Add("Forms.CommandButton.1", "MyButton1")
    With Com
        .Caption = "MyButton"
        .Width = 100
        .Height = 100
        .Left = 10
        .Top = 10
        .Visible = True
    End With

thanks

SolidworksApi macros