private static extern int UrlMkGetSessionOption(int dwOption, StringBuilder pBuffer, int dwBufferLength, ref int pdwBufferLength, int dwReserved);

Private Shared Function UrlMkGetSessionOption( _

Dim ret As Integer = UrlMkGetSessionOption(URLMON_OPTION_USERAGENT, buffer, buffer.Capacity, returnLength, 0)