Foro de elhacker.net

hola tengo una duda en este codigo.
Private Sub WS_DataArrival(ByVal bytesTotal As Long)                        'en la llegada de datos
On Error GoTo Error
dim datos as string
ws.getdata datos          'metemos en la variable datos los datos que nos lleguen
if datos = "paint" then shell ("mspaint")                    ' si los datos eran = a "paint" entonces ejecuta el paint
end sub

me dice label not defined

si pones On Error Goto Error ' en caso d errpr nos vamos hasta la etiketa error

al final antes del End Sub as de poner:

Error:
End Sub

Si haces eso tampoco vas a saber que error esta ocurriendo. Saca el On Error resume next, corre el programa, y despues postea el error que te dice y que linea te marca.-

nylon si pone On Error GoTo Next el programa no le dara ningun error ya que el unico fallo que tenia era eso que el vb6 no encontraba la etiqueta "Error"

jajaj nylon che deja eso xke estas alucinando  :o donde viste on error resume next e loko  :huh: bueno no te diste cuenta ejjeje ;)

xD se equivoco el muchacho

jeje, convida lo que estas fumando