To create a GetRefObj object:

  If Ted.HasActiveArticle Then

    Dim objArticle = Ted.GetActiveArticle

    Dim idx = objArticle.GetCurTxtIdx

    If idx >= 0 Then

      If objArticle.HasRefObj(idx) Then

        Dim objObj = objArticle.GetRefObj(idx)

         MsgBox(objObj.id) 'img id

      End If

    End If

  End If