Android Question Query ProgressDialogHide

Sub casa
ProgressDialogShow2("Efetuando Cadastro", False)
confereusuarioface
End Sub

Sub confereusuarioface
    ExecuteRemoteQuery("SELECT NickName,StatConta FROM usuarios Where SocID='" &idfacebook& "' and SocNet='" &fa& "' " , verificausuarioface)
End Sub



        Case "verificausuarioface"
        Dim lface As List
        Dim contaface As String
        lface = parser.NextArray
        'ProgressDialogHide
        If cass = "[]" Then
        Panel1.visible = True
        Msgbox("Olá Seja bem vindo, precisamos de mais alguns dados para completar seu cadastro!", "Click Fight")
        Return
        End If
       
        Dim mface As Map
        mface.Initialize
        Dim contaface As String
        mface = lface.Get(0)
        contaface = mface.Get("StatConta")
       
        If contaface = "0" Then
        Msgbox("Sua conta está bloqueada! Por favor entre em contato com a administração Click Fight em www.clickfight.com.br ", "Click Fight")
        Else If contaface = "1" Then
        confirmacadastro
        Else If contaface = "2" Then
        Msgbox("Este usuário ja esta cadastrado","Click Fight")
        Panel1.Visible = False
        'vai para proxima tela
        Else
        Msgbox(contaface,"Click Fight")
        End If