Visual Basic 6 - Errore Run-Time 458

Ragazzi, Vi prego Mi dovete aiutare, Sto uscendo pazzo...

HO un problema maledetto.. un codice semplicissimo dove non ci sono errori... e visual basic mi segnala questo:

Errore Run-Time 458

La variabile usa un tipo di automatizzazione non supportato in Visual Basic...

E si ferma ad un punto..

Ecco il Codice che ho usato:

Dim data As String
Dim First As Boolean
Dim a As Integer
a = -1
Winsock1.GetData data
sis:
If data = "Writing Done" Then
GoTo lego
End If

If data = "File Created Successifully" Then


Open dialog1.FileName For Binary As #1

First = True

While Not EOF(1)
Get #1, , c
a = a + 1
If a >= 1 Then
First = False
End If
DoEvents


'Text1.Text = Text1.Text & c
'Text1.SelLength = Len(Text1.Text)
Winsock1.SendData "BinarySendData," & c


If First = False Then GoTo sis
lego:



Wend
Close #1

MsgBox "finito"
Winsock1.SendData "Fine"
End If

End Sub

L'errore appare quando arriva a leggere: Get #1, , c


PERCHEEEEE DICO IOOOOOO è un codice che ha sempre funzionato.. non ho modificato niente! ho solo aggiunto l'if tra while e wend e le variabili... NIENT'altro!!!!


PErchè!!!!?!?!?

Per Favore Mi Date una Mano?

forse perchè nn hai dichiarato la variabile c
vedi se va senza la parte della if

nn assicuro niente

Provo... però vedi... questo progetto è stato modificando togliendo solo le parti che erano ESTREMAMENTE inutili per il trasferimento tra socket..


e prima (il procedimento era esattamente lo stesso... ma senza winsock.. una semplice copia binaria...)

e li non dava alcun problema...

ora faccio quello che hai detto tu

GRAZIE 1000 davvero di tutto... se funziona ti faccio una statua...

anche se potevo pensarci uff...

FUNZIONAAAAAAAAAAAAAAAAAAAAAAAA!!!!!


ora però il trasferimento si è rallentato... e di molto anche uff...


forse per tutti gli if e then e le variabili e i goto..


Però non so come fare...

GRazie mille di tutto!