عمل نكردن دستور seek

[m_zi]

سلام خسته نباشيد . من هفته پيش سوالي در مورد خواندن واقعي تعداد بايتها از فايل نمودم كه دوست عزيزم كاملا صحيح جواب داد حالا مي خواهم در همان دستور از دستور seek استفاده كنم ولي جواب نمي ده ميشه راهنماييم كنيد .

SHndl = OpenFile_C(FilePath, Read_F)
GetFileSize_C = GetFileSize(SHndl, 0)
ActByteRead = ReadFromFile_C(SHndl, Buffer, NumOfByte)

Seek SHndl, 65536

دستور بالا چه مشكلي دارد . در حالي كه اگر همين دستور را با دستورات :
اجرا كنم اشكالي نمي گيرد . ولي من ناگزيرم از دستورات تيپ 1 استفاده كنم ميشه كمك كنيد .

Open "e:\vc2.bin" For Binary As #1
Dim buffer1(300) As Byte
Get #1, , buffer1()
Seek #1, 10
Close #1

ممنون