How to save a font to the program?

[NinjaNic]

Hello! How do you save a font to the program so any computer can see it? (Not just the ones with the font installed.) This is my current code: (In form1_load)

Dim MyFont As PrivateFontCollection = New PrivateFontCollection
MyFont.AddFontFile("visitor.ttf")
Me.Font = New Font(MyFont.Families(0), 12)

It sends an error when another computer runs the program. (Visitor.ttf is in the resources!)
So, what I need to jnow is, is there another way or another place to save the font instead of downloading it to another computer? Thanks.