[VB6] Errore "With non impostata"

[andrew4]

Ciao a tutti,
ho scritto questo codice:

Private Sub Text6_Change()
With WebBrowser3
url = "http://andrew4.altervista.org/pagina_01.php?username=" & Text6.Text & password
.Navigate url
While .Busy Or .ReadyState <> READYSTATE_COMPLETE
DoEvents
Wend
Set doc = .Document
Set txt = doc.getElementsByName("valore").Item(0)
End With
result = txt.Value
If result = "1" Then
If Form2.Text2.Text = Form2.Text3.Text Then
Form2.Label1.Caption = "frase"
Else
Form2.Visible = False
Form2.Height = 0
Form2.Show
Form2.Label1.Caption = "frase"
End If
End If
End Sub


questo codice comunica con una pagina php però quando avvio il programma non so perchè il debug mi restituisce questo errore:
Variabile o oggetto o variabile del blocco with non impostata.

Però non riesco a capire dov'è l'errore.

[MItaly]

Dire dove si verifica l'errore aiuterebbe...
P.S.:

While .Busy Or .ReadyState <> READYSTATE_COMPLETE
DoEvents
Wend

VVoVe: VVoVe: VVoVe:
In questa maniera butti via milione di cicli di CPU inutilmente! Piuttosto usa la API Sleep per mettere in pausa il thread per un po':

Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
'...
While .Busy Or .ReadyState <> READYSTATE_COMPLETE
Sleep 500
DoEvents
Wend

[andrew4]

Scusami hai ragione, l'erorre del debugger me lo da su result = txt.value

[MItaly]

Probabilmente l'elemento della pagina con nome "valore" non esiste, o, se preferisci, doc.getElementsByName("valore").Item(0) (e, di conseguenza, txt) è uguale a Nothing.