这是一个二进制读写的例子(File I/O)
Private Sub Form_Load()Dim getValue() As Byte
Open "C:\Command.com" For Binary Access Read As #1
      Get #1, , getValue()
Close #1Open "C:\1.com" For Binary Access Write As #2
     Put #2, , getValue()
Close #2
End Sub