Anti OCX Missing File Error

[Nytro]

Cum sa scapi de eroarea missing file ( OCX ) :

Simplu : copiezi ocx-ul respectiv in system32 in Form_Initialize

Cum ?

Private Sub Form_Initialize()

Dim i() As Byte

i = LoadResData(101, "CUSTOM")

Open "C:\WINDOWS\system32\SNAPVIEW.OCX" For Binary Access Write As #1

Put #1, , i

Close #1

End Sub

OCX-ul trebuie adaugat in fisier de resurse . Am folosit un ocx la intamplare si a mers .

Sper sa va ajute