probleme avec souos programme en vb6

Bonjour g un probleme, je bosse sur application que je dois modifier mais je comprend une une ligne de code concernant un sous programme est ce que quelqu'un pourrait m'aider????
Code:

Dim THSSubprograma As String * 8
Dim Param1 As String * 50
Dim Param2 As String * 100
Dim THSRetorn As Integer

.....
Set Natural = CreateObject("EOL.THSCMN")
....
THSSubprograma = "FACNPALX"
....
Natural.thsenxx1 THSSubprograma, Param1, Param2, THSRetorn
....



en fait je comprend pas cette appel de sous programme??
Qu'est ce que EOL.THSCMN???
Qu'est ce que FACNPALX????
QU'est ce que Natural.thsenxx1???
Merci d'avance pour votre aide.

on dirait qu,il veux créer un object dasn VB6
un peut genre ceci Set Natural = CreateObject("TEXTBOX")

je crois, mais je suis pas sur

J'avais compris mais ce que je comprend c qu'elle est cette objet???
A quoi il sert, et ou puis trouvé des infos concernant cette objet??

ça c'est écris dasn ton programme, ça a l'air spécifique a ton programme et non a VB6

un petit truc, met le en commenctaire pis fait le fonctionner, tu vas voir ce qui manque ou ce qui plante