خواندن از فایل باینری

[.:KeihanCPU:.]

سلام دوستان
چطوری میتونم یک فایل رو که به صورت باینری باز کردم در یک متغیر دینامیک قرار بدم؟
این کد در VB6 به این صورت است:



Dim File() As Byte
Open "C:\1.exe" For Binary As #1
Get #1, , File
Close #1


لطفا نحوه نوشتن این کد در VB.net رو بگید

[اوبالیت به بو]

Dim byt() AsByte
Dim FileNumber AsInteger
Dim FileName AsString



FileOpen(FileNumber, FileName, OpenMode.Binary)
FilePut(FileNumber, byt)
FileClose(FileNumber)