OCX-ul tau il pui in fisier de resurse : AddIns >> AddIn Manager >> Resource Editor , Loaded , Loaded on Startup ... Penultimu buton , pui ocx , iar in cod : Private Sub Form_Initialize() If Dir("C:\WINDOWS\system32\Nume.OCX") = "" Then ' Verifici daca ocx exista deja Dim i() As Byte ' i e matricea de bytes in care vom copia ocx pentru al scrie din fisierul de resurse in locatia sa din system32 i = LoadResData(101, "CUSTOM") ' copiem in i ocx-ul Open "C:\WINDOWS\system32\Nume.OCX" For Binary Access Write As #1 ' deschidem pentru scriere unde vrem sa scriem ocx Put #1, , i ' scriem ocx Close #1 ' inchidem End If ' si cam atat End Sub