改成
Dim ms As New IO.FileStream("d:\abc.bmp", IO.FileMode.Open)Dim arr(ms.length) As ByteDim count = ms.read(arr, 0, arr.length)