Declare Sub InternetCreateUrl Lib "wininet.dll" _ Alias "InternetCreateUrlA" ( _ ByRef lpUrlComponents As [[URL_COMPONENTSA]], _ ByVal dwFlags As Long, _ ByVal lpszUrl As String, _ ByRef lpdwUrlLength As Long)