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 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.-

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

jeje, convida lo que estas fumando