Bestand kopieeren uit Resources

[MitchelRijs]

Ik probeer om een Bestand (mswinsck.ocx) uit mijn resources te kopieeren naar de map C:\

Dit is mijn code, hij kopieert hem wel maar de file is dan 0kb...

Try
Dim sWriter As Stream = (Me.GetType().Assembly.GetManifestResourceStream("mswinsck.ocx"))
Dim x As Integer
Dim fFile As New FileStream("C:\mswinsck.ocx", FileMode.OpenOrCreate)
For x = 1 To sWriter.Length
fFile.WriteByte(sWriter.ReadByte)
Next
fFile.Close()

Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

Wat doe ik verkeerd?
(Visual Basic 2008)