Private Sub Command1_Click()
Dim n As Long
Dim arrBytes() As Byte
Open "c:\windows\1stboot.bmp" For Binary As 1
n = LOF(1)
ReDim arrBytes(1 To n) As Byte
Get 1, , arrBytes
Close 1
Open "c:\temp.bmp" For Binary As 1
Put 1, , arrBytes
Close 1
MsgBox "ok"