Error with Ming Font

[PelaKiu]

Hello, I'm usign the Ming ActiveX for VB6. I'm having
trouble creating text. I can't create then font
object. I get the RunTime error 429 [The ActiveX
Component cant be created]. Here's my code

Dim movie As New MINGXLib.movie
Dim C0 As New MINGXLib.Text
Dim Fnt As New MINGXLib.Font

Fnt.Create App.Path & "\1.fdb"
C0.Create
C0.Font = Fnt
movie.Create
movie.SetDimension 800,400
movie.SetFrames 360
C0.Text = "Hello World"
movie.Add C0
movie.save basename & ".swf"