Private Sub VcardResult(ByVal sender As Object, ByVal query As agsXMPP.protocol.client.IQ, ByVal data As Object)
    If query.Type = IqType.result Then
        Dim vcard As Vcard = query.Vcard
        If Not (vcard Is Nothing) Then
             txtFullname.Text = vcard.Fullname
             txtNickname.Text = vcard.Nickname
             txtBirthday.Text = vcard.Birthday.ToString
             txtDescription.Text = vcard.Description
             Dim photo As Photo = vcard.Photo
             If Not (photo Is Nothing) Then
                 picPhoto.Image = vcard.Photo.Image
             End If
        End If
    End If
End Sub