ayuda con mi troyano, por favor !! :(

[restriger]

Hola, estoy intentando crear una especie de troyano, pero me hace falta una ayudita con el. Lo k exactamente quiero conseguir es esto:

Para ver este enlace Registrate o Inicia Sesion

http://img207.imageshack.us/my.php?image=blackninja10ve9.png

En el form "Files" kiero obtener los directorios y las raices. Luego lo de l remot shell estuve leyendo una cosa y me lio mucho. Ademas tengo tmb bastantes problemas con el codigo, por ahora solo llevo esto:

Para ver este enlace Registrate o Inicia Sesion

ayudenme porfavor es muy importante !
salu2

[restriger]

Olvidense de todo eso, ya solo quiero k alguien me ayude a solucionar esto:
El codigo:

Private Sub Winsock1_DataA rrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetDa ta datos ' recibe informacion
Text1.Text = "" ' despues al recibir otro texto s elimpia el text1
Text1.Text = Text1.Text + datos
End Sub

Y el error que me da es este:

Compile error:
Ambiguous name detected: Winsock1_DataA rrival

EDITO: Resuelto !!

[jojo5716]

olle pana... si te dice Compile error:
Ambiguous name detected: Winsock1_DataA rrival es porque seguramente tienes repetido el  Winsock1_DataA rrival revisa bien tu codigo

[Guan]

El problema eta en el otro programa, el qe no nos has dado el codigo, unicamente tienes qe borrar un private sub ws_data arrival, y ponerle los datos en el orto qe tienes qe es exactamente igual