Consumir Servicio Web detras de un proxy

Dim svc As New Servicio
Dim nc As NetworkCredential = New NetworkCredential("usuario", "clave", "dominio")
Dim pr As New WebProxy("ip del proxy", puerto) 'puerto es un entero
pr.Credentials = nc
svc.Proxy = pr
Dim dtv As New DataView
Dim ds As New DataSet
ds = svc.getData
dtv = ds.Tables(0).DefaultView
Me.DataGridView1.DataSource = dtv

Al correrlo, ya podemos cargar el dataset devuelto en el datagrid.