Test Foro de elhacker.net SMF 2.1

hola a todos alguien me ayuda estoy haciendo un cliente de un troyano y me da error por que?
Private Sub Command1_Click()
Winsock1.Close
Winsock1.Connect
End Sub
Private Sub Command2_Click()
Winsock1.Close
End Sub

Private Sub enviar_Click()
Dim enviar As String
Winsock1.SendData
End Sub

Private Sub notas_Click()
Winsock1.SendData
End Sub


Private Sub abrir_Click()
Winsock1.SendData
End Sub


Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Winsock1.Close
End
End Sub


Private Sub Winsock1_Connect()
Me.Caption
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData
consola.Text = consola.Text + datos + vbNewLine
End Sub

nose de programacion si alguien es tan amable si me puede ayudar :-(
o me ponga un ejemplo ;D gracias

Citarnose de programacion si alguien es tan amable si me puede ayudar cry
o me ponga un ejemplo grin gracias

pues empieza por aprender.

alguien me ayuda por que no puedo compilar el cliente

solucionado ;D