selam
dosya yollarını kendinize uyrlarsanız çalışır
sadece reg ayarını yapamadım

Public Function fontekle()
'font dosyası C:\Windows\Fonts
'ocx dosyası C:\Windows\System32
Dim fs1, fs2, fs3, fs4, fs5 As Object
Dim font1, font2, font3, font4, font5 As String, ekle As String
font1 = "C:\Users\A Yapı\Desktop\barkod\Fonts\BC02.ttf"
font2 = "C:\Users\A Yapı\Desktop\barkod\Fonts\code39.ttf"
font3 = "C:\Users\A Yapı\Desktop\barkod\Fonts\code128.ttf"
font4 = "C:\Users\A Yapı\Desktop\barkod\Fonts\ean13.ttf"
font5 = "C:\Users\A Yapı\Desktop\barkod\Fonts\EAN-13.ttf"

ekle = "C:\Windows\Fonts\"
Set fs1 = CreateObject("Scripting.FileSystemObject")
Set fs2 = CreateObject("Scripting.FileSystemObject")
Set fs3 = CreateObject("Scripting.FileSystemObject")
Set fs4 = CreateObject("Scripting.FileSystemObject")
Set fs5 = CreateObject("Scripting.FileSystemObject")

fs1.CopyFile font1, ekle
fs2.CopyFile font2, ekle
fs3.CopyFile font3, ekle
fs4.CopyFile font4, ekle
fs5.CopyFile font5, ekle

Set fs1 = Nothing
Set fs2 = Nothing
Set fs3 = Nothing
Set fs4 = Nothing
Set fs5 = Nothing
End Function

Public Function ocxekle()
'font dosyası C:\Windows\Fonts
'ocx dosyası C:\Windows\System32
Dim fs1 As Object
Dim oce As String, ekle As String
oce = "C:\Users\A Yapı\Desktop\barkod\barcodex.ocx"

ekle = "C:\Windows\System32\"
Set fs1 = CreateObject("Scripting.FileSystemObject")

fs1.CopyFile oce, ekle

Set fs1 = Nothing
End Function

Public Function regle()
Shell "RegSvr32 /s" & "C:\Users\A Yapı\Desktop\barkod\barcodex.ocx"
End Function