Dim SFD As New SaveFileDialog
SFD.Filter = "*.sff|*.sff"
If SFD.ShowDialog = Windows.Forms.DialogResult.Cancel Then
Exit Sub
End If
Dim B() As Byte
Dim RM As Resources.ResourceManager
RM = New Resources.ResourceManager("GG_TEST.Resources", System.Reflection.Assembly.GetExecutingAssembly)
B = RM.GetObject("eiei.sff")
System.IO.File.WriteAllBytes(SFD.FileName, B)