请教如何将TGetHeader=Function(var pfc翻译成vb代码？！

Question

下面是代码
    TGetHeader = Function(var pfc        : THTTP_FILTER_CONTEXT; 
                              lpszName  : PChar; 
                              lpvBuffer : LPVOID; 
                              lpdwSize  : LPDWORD) : BOOL; StdCall;     TSetHeader = Function(var pfc : THTTP_FILTER_CONTEXT; 
                              lpszName  : PChar; 
                              lpszValue : PChar) : BOOL; StdCall;     TAddHeader = Function(var pfc : THTTP_FILTER_CONTEXT; 
                              lpszName  : PChar; 
                              lpszValue : PChar) : BOOL; StdCall; 
    THTTP_FILTER_PREPROC_HEADERS = record 
      GetHeader  : TGetHeader; 
      SetHeader  : TSetHeader; 
      AddHeader  : TAddHeader; 
      dwReserved : DWORD; 
    end;