Urgent! How to change the access type of internet transfer control??

I'm using direct connection to internet(without proxy).First I set the accesstype = icNamedProxy, of course I cannot download an html, after I set accesstype = icDirect but still cannot bypass the proxy. I need to end my project to bypass the proxy. Why?

vbcode
If chkProxyAccess.Value = vbUnchecked Then
Inet1.Cancel
Inet1.AccessType = icUseDefault
Inet1.Proxy = ""
Else
If chkProxyLogin.Value = vbUnchecked Then
Inet1.Cancel
Inet1.AccessType = icNamedProxy
Inet1.Proxy = txtProxyAdr + ":" + txtProxyPort
Inet1.UserName = ""
Inet1.Password = ""
Else
Inet1.Cancel
Inet1.AccessType = icNamedProxy
Inet1.Proxy = txtProxyAdr + ":" + txtProxyPort
Inet1.UserName = txtProxyID
Inet1.Password = txtProxyPwd
End If
End If
/vbcode