Can't Register ActiveX Control Access 2000 Form

[Potamus]

I am trying to add some ActiveX controls to a MS Access 2000 form.
Unfortunately, when I register the ActiveX controls, they do not appear in
the list of ActiveX controls (Tools, ActiveXcontrols…)
When I asked the vendor what the problem was, I got the following response:
The ocx is not added as a "reference", rather one adds it as a "component".
Attached is a VB6 project that uses the ocx and also our Explorer, from
eBCommCtl.ocx, which one also adds as a "component".

How do I do this in Access 2000?

The following is the form code that was in the project the vendor sent me.

VERSION 5.00
Object = "{C2525AED-E301-44F2-A7E0-D018A36ED978}#1.0#0"; "eBCommCtl.ocx"
Object = "{3563BB14-96BF-4962-B4C7-F42D6CE427EA}#1.0#0"; "eBShellView.ocx"
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 9492
ClientLeft = 60
ClientTop = 348
ClientWidth = 10296
LinkTopic = "Form1"
ScaleHeight = 9492
ScaleWidth = 10296
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton cmdPrintLocal
Caption = "Print Local"
Height = 372
Left = 240
TabIndex = 2
Top = 120
Width = 1332
End
Begin eBShellView.Viewer Viewer1
Height = 8415
Left = 3240
TabIndex = 1
Top = 600
Width = 6615
_ExtentX = 11663
_ExtentY = 14838
End
Begin AltriseBCommCtl.Explorer Explorer1
Height = 8415
Left = 0
TabIndex = 0
Top = 600
Width = 3255
_ExtentX = 5736
_ExtentY = 14838
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private eBProxy As Object
Private eBSession As Object

Private Sub Explorer1_NodeSelected(ByVal pl_object_id As Long, ByVal
pl_object_type As Long, ByVal pl_object_flags As Long)
Dim obj_id As Long
Dim obj_type As Long
Dim obj_flags As Long

Call Explorer1.get_current_node(obj_id, obj_type, obj_flags)
If obj_type = 30 Then
Call Viewer1.view(obj_id)
Else
Call Viewer1.view_object(obj_id, obj_type, 65535)
End If

End Sub

Private Sub Form_Load()
Set eBSession = CreateObject("AltriseBSession.IeBSession")
Set eBProxy = eBSession.proxy
' Set eBProxy = CreateObject("AltriseBSession.IeBSession").proxy
Explorer1.eb_proxy = eBProxy
Explorer1.add_root_node

Viewer1.eb_proxy = eBProxy
End Sub

Private Sub Form_Unload(Cancel As Integer)
eBSession.shutdown_session
End Sub

Private Sub Form_Resize()
Explorer1.Top = 600
Viewer1.Top = Explorer1.Top
If Me.Height > 400 Then
Explorer1.Height = (Me.Height - 1000)
End If
Viewer1.Height = Explorer1.Height

If (Me.Width - Viewer1.Left) - 100 > 0 Then
Viewer1.Width = (Me.Width - Viewer1.Left) - 100
End If
End Sub

Private Sub cmdPrintLocal_Click()
Dim obj_id As Long
Dim obj_type As Long
Dim obj_flags As Long
Dim llResult As Long
Dim sFiles As String

Call Explorer1.get_current_node(obj_id, obj_type, obj_flags)
If obj_type = 30 Then
' sFiles = "<Files><file_id>" & obj_id & "</file_id></Files>"
sFiles = "<Medias><Media><id>" & obj_id & "</id><name>Chuck
Test</name></Media></Medias>"
llResult = Viewer1.print_local(sFiles)
End If

End Sub