To Amel
>Кто-нибудь регистрил (regsvr32) удаленно компоненты на другой ПК?
А в чем проблема?

Shell fReturnSysDir() & "\regsvr32.exe /s " & Chr(34) & CurrentProject.Path & "\test.ocx" & Chr(34), vbHide

Модуль с функцией fReturnSysDir:

==========
Private Declare Function apiGetSystemDirectory& Lib "kernel32" _
Alias "GetSystemDirectoryA" _
(ByVal lpBuffer As String, ByVal nSize As Long)

Function fReturnSysDir()
'Returns System Folder Name (C:\WinNT\System32)
Dim strSysDirName As String
Dim lngx As Long
strSysDirName = String$(MAX_PATH, 0)
lngx = apiGetSystemDirectory(strSysDirName, 255)
If lngx <> 0 Then
fReturnSysDir = Left$(strSysDirName, lngx)
Else
fReturnSysDir = ""
End If
End Function
==========

А проверить, ну во-первых можно регистрировать и не проверяя,
во-вторых можете, конечно, реестр прочитать, а в третьих можете попытаться создать объект, например, для Microsoft ProgressBar Control 6.0:

Следующий код в любом случае вернет ошибку:
Dim obj as Object
On Error Resume Next
obj = CreateObject("MSComctlLib.ProgCtrl")

Но если записи в реестре нет, то будет:
429 ActiveX component can't create object
А если есть:
91 Object variable or With block variable not set