(Ask) konversi code delphi ke VB.NET

[Servermaster]

permisi agan2,,ane mw minta tolong ne,,ane lg ngerjain TA ne,ane bkin pke bahasa VB.NET,,tp ane kagak ketemu referensinya dalam bahasa VB.NET,,yg ane nemu dalam bahasa Delphi,,tp ane kagak ngerti gan :tanya: mohon bantuannya ne buat agan2 master delphi,,,ne codenya gan..


Code:

function FindFirstHeader(filename: string): Integer;
var
filemp3: File;
headerArray: array[0..3] of byte;
count, pos: Integer;
begin
Result:=-1;
if FileExists(filename) then
begin
AssignFile(filemp3, filename);
FileMode:=fmOpenRead;
Reset(filemp3,1);
//looping sampai dapat header file
pos:=0;
while not eof(filemp3) do
begin
seek(filemp3, pos);
BlockRead(filemp3, headerArray, 4, count);
if ((headerArray[0]=$FF) and ((headerArray[1]=$FB) or
(headerArray[1]=$FA))) then
begin
Result:=pos;
break;
end else
begin
pos:=pos+1;
end;
end;
CloseFile(filemp3);
end else
begin
exit;
end;
end;

mohon bantuannya gan :mewek:

</div>