how to get selected item from commbobox ? and add?

how to get selected item from commbobox ? and add?

Hi.
i want selected item from commbobox. and add item.
Public Sub LeftClickDown_Default(obElem As Element)
Dim zPIC As DynPicture
Dim zELE As Element
Const strPicture As String = "Picture_Login"
Const strElement As String = "ActiveX_16"
Dim f As Integer

'get Picture object
Set zPIC = MyWorkspace.ActiveDocument.DynPictures.Item(strPicture)
'if picture object is nothing, the picture doesn't exist...
If zPIC Is Nothing Then Exit Sub
'get Element object
Set zELE = zPIC.Elements.Item(strElement)


End Sub

This is a migrated post! Originally posted on 07.04.2016 by user backjahyun. Please be aware that information can be outdated.