For i = 1 To 10

        OLEObjects("CommandButton" & i).Object.Caption = "tlacitko " & i

    Next

Imports CookComputing.XmlRpc

Public Structure HashValue
    Public status As Integer
End Structure

<XmlRpcUrl("http://import.sreality.cz:443/RPC2")> _
Public Interface ISreality
    Inherits IXmlRpcProxy
    <XmlRpcMethod("getHash")> _
    Function GetHash(ByVal x As Integer) As HashValue
End Interface

Module XmlRpcTest
    Sub Main()
        Dim proxy As ISreality
        proxy = CType(XmlRpcProxyGen.Create(GetType(ISreality)), ISreality)
        Dim ret As HashValue
        ret = proxy.GetHash(123456)
        Console.WriteLine(ret.status)
        Console.ReadLine()
    End Sub
End Module