'/*Loads Custom Resource data to file
Function rFile(index As Integer, sFile As String)
On Error GoTo DarnIt
Dim fn As Integer
Dim arr() As Byte
fn = FreeFile
arr() = LoadResData(index, "CUSTOM")
If FileExists(sFile) = True Then
Kill sFile
End If
Open sFile For Binary As #fn
Put #fn, , arr()
Close #fn
DoEvents
DarnIt:
End Function
