Winsock: перенаправление пакетов - VB

Формулировка задачи:

Здравствуйте, подскажите, как заставить Winsock перенаправлять пакеты. Например ко мне поступает пакет на порт 2000, я хочу его пере направить на свой порт 2005, который слушается другой программой, а так же считать пакеты с одного айпи, допустим с одного айпи за 5 секунд пришло 40 пакетов, то я должен(программа) должна разорвать с ним соединение.

вот так получиться перенаправление?

Private Sub Form_Load()
Winsock1.LocalPort = 1000
Winsock1.Listen
Winsock2.LocalPort = 2000
Winsock2.Connect
End Sub
 
Private Sub Timer1_Timer()
Dim DD As String
Winsock1.GetData DD
Winsock2.SendData DD
End Sub

вот так тоже не получается

Private Sub Form_Load()
Winsock1.LocalPort = 1000
Winsock1.Listen
Winsock2.LocalPort = 2000
Winsock2.RemoteHost = "127.0.0.1"
End Sub
 
Private Sub Timer1_Timer()
If Winsock1.State = sckConnecting Then
Winsock1.GetData Buffer
End If
End Sub
 
Private Sub Timer2_Timer()
If Winsock1.State = sckConnecting Then
Winsock2.SendData Buffer
End If
End Sub

Решение задачи: «Winsock: перенаправление пакетов»

textual
                            Листинг программы 
                        

                            Option Explicit
Public NumSockets As Integer
 
Private Sub Form_Load()
Caption = Winsock1(0).LocalHostName & Winsock1(0).LocalIP
Winsock1(0).LocalPort = 1973
Print "Listening to " + Str(Winsock1(0).LocalPort)
Winsock1(0).Listen
Dim Data As String
Winsock1(0).GetData Data
Bla
End Sub
 
 
Private Sub Timer1_Timer()
Do
DoEvents
If Winsock1.State <> sckConnected And Winsock1.State <> sckListening Then
Winsock1(0).Close
Winsock1(0).LocalPort = 1973
Winsock1(0).Listen
End If
Loop
End Sub
 
 
 
Function Bla()
Winsock1(0).RemotePort = 2000
Winsock1(0).RemoteHost = "127.0.0.1"
Winsock1(0).SendData Data
End Function
                        