webClient.DownloadString("http://www.pxxxxxxxxy.it/ws_pxxxxxd.asmx/LEGGI_CONTATORE_ADP2013?")

Dim proxy As New it.pxxxxxxy.www.ws_pxxxxxe

   Public Sub CARICA()

        LISTA_PIZZE.Items.Clear()

        Dim list As New List(Of String)
        list.AddRange(proxy.CARICA_PIZZE)

        Dim z As Integer = list.Count - 1
        For x = 0 To z
            LISTA_PIZZE.Items.Add(list.Item(x))
        Next x

    End Sub

<System.Web.Services.WebMethod(EnableSession:=False)> _
    Public Function CARICA_PIZZE() As List(Of String)
        Dim conn As SqlCeConnection = New SqlCeConnection(connectCloud)
        conn.Open()

        Dim cmd As SqlCeCommand = conn.CreateCommand()
        cmd.CommandText = "SELECT * FROM [statistiche]"

        Dim reader As SqlCeDataReader = cmd.ExecuteReader()

        Dim list As New List(Of String)
        
        While (reader.Read())
            list.Add(reader("pizze").ToString())
        End While

        Return list

        cmd.Dispose()
        conn.Dispose()
        conn.Close()
    

    End Function

Imports System.Xml
Imports System.IO

Public Class clsWebService

    Dim ERRORE As New clsErrore
    Dim GRAFICO As New clsGrafico
    Dim proxy As New it.pxxxxxxy.www.ws_pizza2013e
......

    Public Property LISTA_PIZZE As ListBox
......

#Region "STATISTICHE"

    Public Sub CARICA_PIZZE()
        Try
            LISTA_PIZZE.Items.Clear()

            Dim list As New List(Of String)
            list.AddRange(proxy.CARICA_PIZZE)
            proxy.Dispose()
            Dim z As Integer = list.Count - 1
            For x = 0 To z
                LISTA_PIZZE.Items.Add(list.Item(x))
            Next x
        Catch
            RELOAD()
        End Try
    End Sub

#End Region

End Class

dim ws as new clsWebService

....
ws.carica_pizze
....