Spanish Llenar spinner + mysql

[ebqlabs]

Ok, pero como seria algo así:

Sub CargarCliente(datos As String)

    Json2.Initialize(datos)

    Dim m As Map
    m=Json2.NextObject
    Dim data As List
    data=m.Get("data")

    m=data.Get(0)

    LblNom.Text = m.Get("nombre")
    ...
    ...
    ...
    'Spinner Como lo cargo
    Spinner.¿m.Get("pais")?

    'cargar combo país
    h1.initialize("json1", Me)
    h1.Download2("http://www.prueba.cl/prueba.php", ArrayAsString("codigo", "0"))

End Sub

Gracias.-