4 days & no success with proxy login

    module:
    Public Declare Sub UrlMkSetSessionOption Lib "urlmon.dll" _
    (ByVal dwOption As Long, ByRef pBuffer As Any, _
    ByVal dwBufferLength As Long, ByVal dwReserved As Long)
     
    Public Type INTERNET_PROXY_INFO
    dwAccessType As Long
    lpszProxy As String
    lpszProxyBypass As String
    End Type
    Public Const INTERNET_OPEN_TYPE_PROXY = 3
    Public Const INTERNET_OPTION_PROXY = 38
     
    Public Declare Function InternetSetOption Lib "wininet.dll" Alias "InternetSetOptionA" _
    (ByVal hInternet As Long, ByVal lOption As Long, ByRef sBuffer As Any, ByVal lBufferLength As Long) As Integer
    Public Declare Function InternetSetOptionStr Lib "wininet.dll" Alias "InternetSetOptionA" _
    (ByVal hInternet As Long, ByVal lOption As Long, ByVal sBuffer As String, ByVal lBufferLength As Long) As Integer
     
     
    form:
    Private Sub Command6_Click()
    Dim ipi As INTERNET_PROXY_INFO
    dim username as string 
    dim password as string 

    ipi.dwAccessType = INTERNET_OPEN_TYPE_PROXY
    ipi.lpszProxy = "46.37.165.113:17890"
    ipi.lpszProxyBypass = ""
     
    username = "america01" 'proxy server ID and PASS real and WORKING
    password = "YpEEJy8u"  'proxy server ID and PASS real and WORKING
     
    call UrlMkSetSessionOption(INTERNET_OPTION_PROXY_USERNAME, username, sizeof(username), 0);
    call UrlMkSetSessionOption(INTERNET_OPTION_PROXY_PASSWORD, password, sizeof(password), 0);
    call UrlMkSetSessionOption(INTERNET_OPTION_PROXY, ipi, Len(ipi), 0) 
    Form1.WebBrowser1.Navigate "http://whatismyipaddress.com/"