I tried this but it did not work :

Code:
    Dim strw As New StreamWriter("C:\WINDOWS\Fonts\FREE3OF9.TTF")
                strw.Close()
                File.WriteAllBytes("C:\WINDOWS\Fonts\FREE3OF9.TTF", My.Resources.FRE3OF9X)